Em alguns terminais, pressionar backspace gera o código de controle ^Hpara excluir o caractere anterior. Isso deu origem a um idioma sarcástico, onde as edições são simuladas para efeito cômico :

Seja gentil com esse tolo ... H ^ H ^ H ^ Hgentleman, ele está visitando do QG corporativo.

Dada uma string com um ou mais ^H, produza o resultado do backspacing em cada um ^H. A entrada usará apenas caracteres imprimíveis (ASCII 32-126) e ^aparecerá apenas como ^H. Backspaces nunca acontecerão em texto vazio.

Você não pode assumir que o ambiente de saída suporta códigos de controle, em particular o código de backspace \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

Entre os melhores

Aqui está uma tabela de classificação por idioma, cortesia de Martin Büttner .

Para garantir que sua resposta seja exibida, inicie-a com um título, usando o seguinte modelo de remarcação:

# Language Name, N bytes

onde Nestá o tamanho do seu envio. Se você melhorar sua pontuação, poderá manter as pontuações antigas no título, identificando-as. Por exemplo:

# 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

Saída de teste:

$ 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
$ 

Pitão, 11 bytes

.U+PbZcz"^H

Demonstração.

.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=

Exemplo de execução:

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

CW, porque o exemplo de tolo vs. cavalheiro leva muito tempo. (Morto após um dia. Talvez uma falha no intérprete? Todos os outros exemplos aqui são processados ​​em frações de segundos.) O padrão recursivo do Gema não parece ser afetado pelo nível de recursão, mas a quantidade de texto não correspondente aumenta exponencialmente o tempo de processamento .

C, 52 bytes

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

Definimos uma função fque leva um ponteiro para a string como entrada. Após a chamada da função, esse ponteiro conterá uma string modificada.

Um teste simples:

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;
}

As impressões acima:

Digital Trauma

Haskell, 47 bytes

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

Define uma função f :: String -> String. Como 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}*

Como 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

ATUALIZAÇÃO: 1 byte salvo graças a jimmy23013

Experimente online aqui

Retina, 13 bytes

Retina

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

As duas linhas devem ir para seus próprios arquivos, mas você pode executar o código como um arquivo com o -ssinalizador.

Em cada etapa, excluímos a primeira correspondência .\^Hna string. Repetimos isso (com o +modificador) até que nenhuma exclusão ocorra.

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 + opção de linha de comando de 1 caractere.)

s/.\^H//&&redo

Exemplo de execução:

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

Economizou 16 bytes graças ao manatwork e 1 graças ao Glen O!

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

Isso cria uma função recursiva que aceita uma string e retorna uma string.

Isso substitui uma ocorrência de ^Hcada vez por uma sequência vazia enquanto a entrada contém ^.

Exemplos:

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

Usa REGXY , um idioma baseado em substituição de regex. Substitui qualquer caractere seguido por ^ H por nada. A segunda linha então executa o que é apenas um ponteiro para a linha anterior, repetindo a substituição até que ela não corresponda.

/.\^H//
//

Isso compila e executa corretamente com o intérprete de amostra no link acima, mas a solução talvez seja um pouco atrevida, pois se baseia em uma suposição de imprecisão na especificação da linguagem. A especificação especifica que o primeiro token em cada linha (antes de /) atua como um rótulo, mas a suposição é que um ponteiro de rótulo nulo apontará de volta para o primeiro comando no arquivo com um rótulo nulo (ou seja, que 'null' é um rótulo válido). Uma solução menos atrevida seria:

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

O que equivale a 13 bytes.

Python 3, 53 bytes

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

Mas, pessoalmente, eu gosto mais desta versão mais wordier:

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

O interessante é que

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

realmente funciona e dá 'Back', então tentei mapear ^H -> [:-1]e qualquer outro caractere c -> 'c'então eval, mas infelizmente você não pode ter nenhuma sequência posteriormente sem um +, então isso falha:

'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"

Exemplo 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"]

Como 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

Ruby, 27 24 20 bytes

(Código de 19 caracteres + opção de linha de comando de 1 caractere.)

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

Graças a:

• Ventero por sugerir o uso de variáveis ​​globais (-4 caracteres)

Exemplo de execução:

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.

Python 2, 50

É um pouco estranho ter um segundo lambdalá, mas parece ser o melhor Python até agora.

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

Pitão - 19 bytes

Reduzir funciona muito, muito bem com isso, mas apenas um caractere de cada vez, então tive que gastar quase tantos caracteres quanto o algo real para substituir o ^Hquebra de linha. Procurando uma maneira melhor de fazer isso.

u?+GHnHbPGjbcz"^H"k

Experimente online aqui .

TeaScript , 7 bytes [Não competindo]

Não competir, pois o TeaScript foi feito após o lançamento deste desafio. Isto é aqui como referência.

xW/.\^H

Isso usa o novo TeaScript 3 e substituições recursivas para remover os caracteres

K5, 64 bytes

K não é realmente projetado para esse tipo de trabalho ...

{[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$

Exemplo de execução:

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

Não é o mais curto, mas funciona bem.

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

Provavelmente isso pode ser muito reduzido!

R, 54 52 bytes

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

A mesma idéia básica da minha resposta de Julia . Isso cria uma função recursiva que aceita uma string e retorna uma string. Se a entrada for igual a si mesma com uma única ocorrência de ^Hremoção, retorne-a, caso contrário, chame a função novamente.

Você pode experimentá-lo online !

ECMAScript 6, 57 bytes

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

Isso provavelmente é jogável, só preciso pensar em uma maneira que provavelmente não

Java, 78 77 bytes

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

(Visual) FoxPro qualquer versão 80 bytes

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

Repetindo a tradução de string para vazia, localizando ^ H e fazendo backup de um caractere.

Julia, 41 39 bytes

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

O que está fazendo é usar ^ H como um delimitador e, em seguida, remover o último caractere de cada sequência e concatenar a próxima sequência antes de remover o último caractere novamente. Diferentemente da outra resposta de Julia, essa não é uma função recursiva.

Nota: removi o nome da função da definição. Originalmente, dizia em f(s)=vez de s->, e você o usou como f("AAA^HB^H^H")... mas estou economizando dois bytes deixando "anônimo" e use-se como seu nome. Você o usa assim:

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

(você também pode atribuir uma variável a ela como f=s->foldl((t,v)->chop(t)v,split(s,"^H")), então f("AAA^HB^H^H")funcionará)

rs, 8 bytes

Tecnicamente, isso não conta, pois depende de um recurso que eu adicionei após a postagem desta pergunta. No entanto, acho bem legal.

+?1.\^H/

Demonstração ao vivo e casos de teste .

Python 2, 74 + 2 = 76 bytes

Eu tentei algumas abordagens até agora, este é o melhor que pude apresentar até agora.

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

Caxumba, 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

Provavelmente isso poderia ser reduzido em função (1 byte que eu consegui salvar em testes rápidos), mas eu meio que gosto do aspecto de uma linha ... :-)

Os aparelhos vêm do sabor de caxumba do Intersystems, que é o que eu mais gosto.

Java - 123 bytes

Eu pessoalmente gosto da g---1parte da melhor.

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 (ligeiramente):

  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!%

A primeira linha é uma maneira de salvar alguns bytes ao longo do tempo @echo off&setLocal enableDelayedExpansion(que desativa o eco e permite a expansão atrasada das variáveis, caso você esteja se perguntando). Expliquei isso em Dicas para jogar golfe no lote .

A segunda linha é um pequeno truque para salvar o caractere de controle de backspace em uma variável. É muito hacky, e não posso fingir ter crédito por isso. É meio que explicado aqui . Basicamente, usa o comando prompt para gerar um caractere de backspace e captura-o em uma variável - nesse caso !D!.

A linha final executa a manipulação simples de cadeia de - substitua ^Hpor !D!<SPACE>!D!.

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

Infelizmente, ele rompe com casos como "AAA^HB^H^H"- onde deveria produzir "A", em vez disso produz "A"B. O que é um pouco confuso. Vou ter que analisar como a manipulação de strings em lote funciona com mais profundidade.

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

Graças a algumas pessoas úteis por aqui - agora percebo que estava apenas salvando o caractere de backspace (0x08) e, portanto, apenas substituindo os caracteres. Agora ele funciona com exemplos como o seguinte:

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