En algunos terminales, presionar la tecla de retroceso genera el código de control ^Hpara eliminar el carácter anterior. Esto dio lugar a un idioma sarcástico donde las ediciones están fingidas para lograr un efecto cómico :

Sé amable con este tonto ^ H ^ H ^ H ^ Hgentleman, él está visitando desde la sede corporativa.

Dada una cadena con uno o más ^H, genera el resultado del retroceso en cada uno ^H. La entrada utilizará solo caracteres imprimibles (ASCII 32-126) y ^solo aparecerá como ^H. Los espacios de retroceso nunca sucederán en texto vacío.

No puede suponer que el entorno de salida admite códigos de control, en particular el código de retroceso \x08.

>> Horse^H^H^H^H^HCow
Cow

>> Be nice to this fool^H^H^H^Hgentleman, he's visiting from corporate HQ.
Be nice to this gentleman, he's visiting from corporate HQ.

>> 123^H45^H^H^H78^H
17

>> Digital Trauma^H^H^H^H^H^H^H^H^H^H^H^H^H^HMaria Tidal Tug^H^H^H^H^H^H^H^H^H^H^H^H^H^H^HDigital Trauma
Digital Trauma

Tabla de clasificación

Aquí hay una tabla de clasificación por idioma, cortesía de Martin Büttner .

Para asegurarse de que su respuesta se muestre, comience con un título, usando la siguiente plantilla de Markdown:

# Language Name, N bytes

¿Dónde Nestá el tamaño de su envío? Si mejora su puntaje, puede mantener los puntajes antiguos en el título, tachándolos. Por ejemplo:

# Ruby, <s>104</s> <s>101</s> 96 bytes

function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/52946/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function getAnswers(){$.ajax({url:answersUrl(page++),method:"get",dataType:"jsonp",crossDomain:true,success:function(e){answers.push.apply(answers,e.items);if(e.has_more)getAnswers();else process()}})}function shouldHaveHeading(e){var t=false;var n=e.body_markdown.split("\n");try{t|=/^#/.test(e.body_markdown);t|=["-","="].indexOf(n[1][0])>-1;t&=LANGUAGE_REG.test(e.body_markdown)}catch(r){}return t}function shouldHaveScore(e){var t=false;try{t|=SIZE_REG.test(e.body_markdown.split("\n")[0])}catch(n){}return t}function getAuthorName(e){return e.owner.display_name}function process(){answers=answers.filter(shouldHaveScore).filter(shouldHaveHeading);answers.sort(function(e,t){var n=+(e.body_markdown.split("\n")[0].match(SIZE_REG)||[Infinity])[0],r=+(t.body_markdown.split("\n")[0].match(SIZE_REG)||[Infinity])[0];return n-r});var e={};var t=1;answers.forEach(function(n){var r=n.body_markdown.split("\n")[0];var i=$("#answer-template").html();var s=r.match(NUMBER_REG)[0];var o=(r.match(SIZE_REG)||[0])[0];var u=r.match(LANGUAGE_REG)[1];var a=getAuthorName(n);i=i.replace("{{PLACE}}",t++ +".").replace("{{NAME}}",a).replace("{{LANGUAGE}}",u).replace("{{SIZE}}",o).replace("{{LINK}}",n.share_link);i=$(i);$("#answers").append(i);e[u]=e[u]||{lang:u,user:a,size:o,link:n.share_link}});var n=[];for(var r in e)if(e.hasOwnProperty(r))n.push(e[r]);n.sort(function(e,t){if(e.lang>t.lang)return 1;if(e.lang<t.lang)return-1;return 0});for(var i=0;i<n.length;++i){var s=$("#language-template").html();var r=n[i];s=s.replace("{{LANGUAGE}}",r.lang).replace("{{NAME}}",r.user).replace("{{SIZE}}",r.size).replace("{{LINK}}",r.link);s=$(s);$("#languages").append(s)}}var QUESTION_ID=45497;var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";var answers=[],page=1;getAnswers();var SIZE_REG=/\d+(?=[^\d&]*(?:&lt;(?:s&gt;[^&]*&lt;\/s&gt;|[^&]+&gt;)[^\d&]*)*$)/;var NUMBER_REG=/\d+/;var LANGUAGE_REG=/^#*\s*((?:[^,\s]|\s+[^-,\s])*)/

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src=https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js></script><link rel=stylesheet type=text/css href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"><div id=answer-list><h2>Leaderboard</h2><table class=answer-list><thead><tr><td></td><td>Author<td>Language<td>Size<tbody id=answers></table></div><div id=language-list><h2>Winners by Language</h2><table class=language-list><thead><tr><td>Language<td>User<td>Score<tbody id=languages></table></div><table style=display:none><tbody id=answer-template><tr><td>{{PLACE}}</td><td>{{NAME}}<td>{{LANGUAGE}}<td>{{SIZE}}<td><a href={{LINK}}>Link</a></table><table style=display:none><tbody id=language-template><tr><td>{{LANGUAGE}}<td>{{NAME}}<td>{{SIZE}}<td><a href={{LINK}}>Link</a></table>

GNU sed, 11 bytes

:;s/.^H//;t

Prueba de salida:

$ echo "Horse^H^H^H^H^HCow
Be nice to this fool^H^H^H^Hgentleman, he's visiting from corporate HQ.
123^H45^H^H^H78^H
Digital Trauma^H^H^H^H^H^H^H^H^H^H^H^H^H^HMaria Tidal Tug^H^H^H^H^H^H^H^H^H^H^H^H^H^H^HDigital Trauma" | sed ':;s/.^H//;t'
Cow
Be nice to this gentleman, he's visiting from corporate HQ.
17
Digital Trauma
$ 

Pyth, 11 bytes

.U+PbZcz"^H

Demostración.

.U+PbZcz"^H
               Implicit: z = input()
      cz"^H    z.split("^H")
.U             reduce, with the first element of the list as the initial value.
   Pb          Remove the last character of what we have so far.
  +  Z         And add on the next segment.
               Print implicitly.

Gema, 6 bytes

?#\^H=

Ejecución de muestra:

bash-4.3$ gema -p '?#\^H=' <<< 'pizza is alright^H^H^H^H^H^Hwesome'
pizza is awesome

CW, porque el ejemplo de tonto contra caballero lleva demasiado tiempo. (Asesinado después de un día. ¿Tal vez una falla en el intérprete? Todos los demás ejemplos aquí se procesan en fracciones de segundos.) El patrón recursivo de Gema no parece verse afectado por el nivel de recursión, pero la cantidad de texto que no coincide aumenta exponencialmente el tiempo de procesamiento .

C, 52 bytes

j;f(char*s){for(j=0;*s=s[j];s[j]==94?s--,j+=3:s++);}

Definimos una función fque toma un puntero a la cadena como entrada. Después de la llamada a la función, ese puntero contendrá una cadena modificada.

Una prueba simple:

int main(int argc, char** argv) {
    char buf[300] = "Digital Trauma^H^H^H^H^H^H^H^H^H^H^H^H^H^HMaria Tidal Tug^H^H^H^H^H^H^H^H^H^H^H^H^H^H^HDigital Trauma";
    f(buf);
    printf(buf);
    return 0;
}

Las impresiones anteriores:

Digital Trauma

Haskell, 47 bytes

h(a,_:_:b)=f$init a++b;h(x,_)=x
f=h.span(/='^')

Define una función f :: String -> String. Cómo funciona:

    f "ab^Hc^Hd"
=== h ("ab", "^Hc^Hd")   (find ^H)
=== f ("a" ++ "c^Hd")    (backspace)
=== f "ac^Hd"            (join)
=== h ("ac", "^Hd")      (find ^H)
=== f ("a", "d")         (backspace)
=== f "ad"               (join)
=== h ("ad", "")         (find ^H)
=== "ad"                 (no ^H: base case)

CJam, 14 13 bytes

q"^H"/{W\ts}*

Cómo funciona

q                   e# Read the entire input
 "^H"/              e# Split it on occurrences of string "^H"
      {    }*       e# Reduce on the split array
       W\t          e# This is the tricky part. We know that if there are two parts that we
                    e# are reducing on, they must be separated by "^H". Which in turn means
                    e# that from the first part, last characters needs to be deleted
                    e# So we simply put the second part in place of the last character of the
                    e# first part.
          s         e# Doing the above makes it a mixed array of character and string.
                    e# So we convert it to a single string, ready to be served as first part
                    e# in next reduce iteration

ACTUALIZACIÓN: 1 byte guardado gracias a jimmy23013

Pruébalo en línea aquí

Retina, 13 bytes

Retina

+`.\^H(.*)
$1

Las dos líneas deben ir a sus propios archivos, pero puede ejecutar el código como un archivo con la -sbandera.

En cada paso eliminamos la primera coincidencia de .\^Hla cadena. Repetimos esto (con el +modificador) hasta que no se elimine.

JavaScript ( ES6 ), 39 bytes

f=s=>(t=s.replace(/.\^H/,''))!=s?f(t):t

// TEST

Out=x=>O.innerHTML+=x+'\n'

Test=_=>(Out(I.value + "\n-> " + f(I.value)),I.value='')

;["Horse^H^H^H^H^HCow"
,"Be nice to this fool^H^H^H^Hgentleman, he's visiting from corporate HQ."
,"123^H45^H^H^H78^H"
,"Digital Trauma^H^H^H^H^H^H^H^H^H^H^H^H^H^HMaria Tidal Tug^H^H^H^H^H^H^H^H^H^H^H^H^H^H^HDigital Trauma"]
.forEach(t => Out(t + "\n-> " + f(t)))

#I { width:400px }

<pre id=O></pre>
<input id=I><button onclick='Test()'>-></button>

Perl, 20 16 15 bytes

(Código de 14 caracteres + opción de línea de comando de 1 carácter).

s/.\^H//&&redo

Ejecución de muestra:

bash-4.3$ perl -pe 's/.\^H//&&redo' <<< "Be nice to this fool^H^H^H^Hgentleman, he's visiting from corporate HQ."
Be nice to this gentleman, he's visiting from corporate HQ.

Julia, 58 42 41 bytes

¡Ahorré 16 bytes gracias a manatwork y 1 gracias a Glen O!

f(s)='^'∈s?f(replace(s,r".\^H","",1)):s

Esto crea una función recursiva que acepta una cadena y devuelve una cadena.

Esto reemplaza una aparición de ^Ha la vez con una cadena vacía mientras la entrada contiene ^.

Ejemplos:

julia> f("123^H45^H^H^H78^H")
"17"

julia> f("pizza is alright^H^H^H^H^H^Hwesome")
"pizza is awesome"

REGXY, 10 bytes

Utiliza REGXY , un lenguaje basado en la sustitución de expresiones regulares. Reemplaza cualquier carácter seguido de ^ H con nada. Luego se ejecuta la segunda línea, que es solo un puntero a la línea anterior, repitiendo la sustitución hasta que no coincida.

/.\^H//
//

Esto compila y se ejecuta correctamente con el intérprete de muestra en el enlace anterior, pero la solución es quizás un poco descarada ya que se basa en una suposición en la imprecisión de la especificación del lenguaje. La especificación establece que el primer token en cada línea (antes de /) actúa como una etiqueta, pero se supone que un puntero de etiqueta nulo apuntará de nuevo al primer comando en el archivo con una etiqueta nula (o en otras palabras, ese 'nulo' es una etiqueta válida). Una solución menos descarada sería:

a/.\^H//
b//a

Lo que equivale a 13 bytes.

Python 3, 53 bytes

o=""
for x in input().split("^H"):o=o[:-1]+x
print(o)

Pero personalmente me gusta más esta versión más prolija:

H=input().split("^H")
print(eval("("*~-len(H)+")[:-1]+".join(map(repr,H))))

Lo interesante es que

'B''a''c''k''h''a''n''d''e''d'[:-1][:-1][:-1][:-1][:-1][:-1]

en realidad funciona y da 'Back', así que intenté mapear ^H -> [:-1]y cualquier otro carácter en c -> 'c'ese momento eval, pero desafortunadamente no puedes tener ninguna secuencia después sin un +, así que esto falla:

'B''a''c''k''h''a''n''d''e''d'[:-1][:-1][:-1][:-1][:-1][:-1]'s''p''a''c''e''s'

Haskell, 52 47 bytes

import Data.Lists
foldl1((++).init).splitOn"^H"

Ejemplo de uso:

> map (foldl1((++).init).splitOn"^H") ["Horse^H^H^H^H^HCow", "123^H45^H^H^H78^H", "Digital Trauma^H^H^H^H^H^H^H^H^H^H^H^H^H^HMaria Tidal Tug^H^H^H^H^H^H^H^H^H^H^H^H^H^H^HDigital Trauma"]
["Cow","17","Digital Trauma"]

Cómo funciona:

                  splitOn"^H"     -- split on substring "^H", e.g "Horse^H^H^H^H^HCow" -> ["Horse","","","","","Cow"]
                 .                -- then
foldl1(         )                 -- fold from left by
            init                  --   first dropping the last char from the left argument
       (++).                      --   second concatenating left and right argument

Rubí, 27 24 20 bytes

(Código de 19 caracteres + opción de línea de comando de 1 carácter).

$_=$`+$'while/.\^H/

Gracias a:

• Ventero por sugerir utilizar las variables globales (-4 caracteres)

Ejecución de muestra:

bash-4.3$ ruby -pe '$_=$`+$'"'"'while/.\^H/' <<< "Be nice to this fool^H^H^H^Hgentleman, he's visiting from corporate HQ."
Be nice to this gentleman, he's visiting from corporate HQ.

Pitón 2, 50

Es un poco extraño tener un segundo lambdaallí, pero parece ser el mejor Python hasta ahora.

lambda s:reduce(lambda a,b:a[:-1]+b,s.split('^H'))

Pyth - 19 bytes

Reducir funciona muy, muy bien con esto, pero solo tiene un carácter a la vez, por lo que tuve que gastar casi tantos caracteres como el algoritmo real para reemplazar un ^Hsalto de línea. Buscando una mejor manera de hacerlo.

u?+GHnHbPGjbcz"^H"k

Pruébelo en línea aquí .

TeaScript , 7 bytes [No compite]

No compitió ya que TeaScript se creó después de publicar este desafío. Esto está aquí como referencia.

xW/.\^H

Utiliza el nuevo TeaScript 3, y reemplaza recursivamente para eliminar los caracteres.

K5, 64 bytes

K no está realmente diseñado para este tipo de trabajo ...

{[s]$[2>#s;s;`=t:*&{"^H"~2#x_s}'1+!-2+#s;s;,/2#2!|(0,t,3+t)_s]}/

golflua, 36 bytes

\f(s)@o!=s o=s;s=s:g(".^H","",1)$~s$

Ejecución de muestra:

Lua 5.2.2  Copyright (C) 1994-2013 Lua.org, PUC-Rio
> \f(s)@o!=s o=s;s=s:g(".^H","",1)$~s$
> w(f("Be nice to this fool^H^H^H^Hgentleman, he's visiting from corporate HQ."))
Be nice to this gentleman, he's visiting from corporate HQ.

Javascript, 62 bytes

No es el más corto, pero funciona bien.

t=prompt();while(t.match(R=/.\^H/))t=t.replace(R,'');alert(t);

¡Esto probablemente se puede acortar mucho!

R, 54 52 bytes

f=function(s)ifelse(s==(r=sub(".\\^H","",s)),r,f(r))

La misma idea básica que mi respuesta de Julia . Esto crea una función recursiva que acepta una cadena y devuelve una cadena. Si la entrada es igual a sí misma con una sola ocurrencia de ^Heliminación, devuélvala, de lo contrario, llame a la función nuevamente.

¡Puedes probarlo en línea !

ECMAScript 6, 57 bytes

s=>{while(~s.indexOf`^H`)s=s.replace(/.\^H/,'');return s}

Esto es probablemente golfable, solo tengo que pensar en una forma que probablemente no

Java, 78 77 bytes

String f(String a){while(!a.equals(a=a.replaceFirst(".\\^H","")));return a;}

(Visual) FoxPro cualquier versión 80 bytes

PARA t
DO WHILE AT('^H',t)>0
t = STRT(t,SUBS(t,AT('^H',t)-1,3))
ENDDO
RETU t

Repetir la traducción de la cadena al vacío al encontrar ^ H y hacer una copia de seguridad de un carácter.

Julia, 41 39 bytes

s->foldl((t,v)->chop(t)v,split(s,"^H"))

Lo que está haciendo es usar ^ H como delimitador, y luego eliminar el último carácter de cada cadena y luego concatenar la siguiente cadena antes de eliminar nuevamente el último carácter. A diferencia de la otra respuesta de Julia, esta no es una función recursiva.

Nota: he eliminado el nombre de la función de la definición. Originalmente, decía f(s)=más que s->, y lo usaste como f("AAA^HB^H^H")... pero estoy ahorrando dos bytes al dejar que sea "anónimo", y usarlo como su nombre. Lo usas así:

(s->foldl((t,v)->chop(t)v,split(s,"^H")))("AAA^HB^H^H")

(también puede asignarle una variable como f=s->foldl((t,v)->chop(t)v,split(s,"^H")), entonces f("AAA^HB^H^H")funcionará)

rs, 8 bytes

Técnicamente, esto no cuenta, ya que depende de una característica que agregué después de que se publicó esta pregunta. Sin embargo, creo que es bastante bueno.

+?1.\^H/

Demostración en vivo y casos de prueba .

Python 2, 74 + 2 = 76 bytes

He intentado algunos enfoques hasta ahora, este es el mejor que he podido encontrar hasta ahora.

n=input();o='';c=0
for l in n:d=l=='^';o=[o+l*(1-c),o[:-1]][d];c=d
print o

Paperas, 84 bytes

R Z S T="",Y=$L(Z,"^H") F I=1:1:Y{S T=T_$P(Z,"^H",I) S:I<Y T=$E(T,1,$L(T)-1)} W !,T

Esto probablemente podría acortarse como una función (1 byte que pude guardar en pruebas rápidas) pero me gusta el aspecto de una línea ... :-)

Las llaves provienen del sabor Intersystems Cache de Paperas, que es lo que más conozco.

Java - 123 bytes

Personalmente, me gusta la g---1parte que mejor.

String f(char[] a){String b="";for(int g=-1;++g<a.length;b=(a[g++]=='^'?b.substring(0,b.length()-1):b+a[g---1]));return b;}

expandido (ligeramente):

  String f(char[] a) {
      String b = "";
      for (int g = -1;
           ++g < a.length;
           b = (a[g++]=='^' 
                ? b.substring(0, b.length() - 1) 
                : b + a[g---1])
      );
      return b;
  }

Lote - 138 bytes

@!! 2>nul||cmd/q/v/c%0 %1&&exit/b
set s=%1&for /F %%a in ('"prompt $H&echo on&for %%b in (1)do rem"')do set D=%%a
echo %s:^H=!D! !D!%

La primera línea es una forma de guardar unos pocos bytes a lo largo @echo off&setLocal enableDelayedExpansion(lo que desactiva el eco y permite la expansión retardada de las variables, en caso de que se lo pregunte). Lo expliqué en Tips for Golfing in Batch .

La segunda línea es un pequeño truco para guardar el carácter de control de retroceso en una variable. Es bastante hacky, y no puedo pretender tomar el crédito por ello. Se explica más o menos aquí . Básicamente usa el comando prompt para generar un carácter de retroceso y lo captura en una variable, en este caso !D!.

La línea final realiza la simple manipulación de cadenas de - reemplazar ^Hcon !D!<SPACE>!D!.

C:\>bsp.bat "testing^H^H^H test"
"test test"

Desafortunadamente, rompe con casos como "AAA^HB^H^H": donde debería producir "A", en su lugar produce "A"B. Lo cual es algo confuso. Tendré que analizar cómo funciona la manipulación de cadenas de Batch con más profundidad.

C:\>bsp.bat "AAA^HB^H^H"
"A"B

Gracias a algunas personas útiles por aquí , ahora me doy cuenta de que solo estaba guardando el carácter de retroceso (0x08), por lo que solo estaba sobrescribiendo los caracteres. Ahora funciona con ejemplos como los siguientes:

C:\>bsp.bat "AAA^HB^H^H"
"A"