W niektórych terminalach naciśnięcie klawisza Backspace generuje kod sterujący, ^Haby usunąć poprzedni znak. To dało początek ponuremu idiomowi, w którym udaje się wprowadzać zmiany w celu uzyskania efektu komediowego :

Bądź miły dla tego głupca ^ H ^ H ^ H ^ Hgentleman, który odwiedza z siedziby głównej firmy.

Biorąc pod uwagę ciąg z jednym lub więcej ^H, wypisuje wynik cofania na każdym z nich ^H. Dane wejściowe będą używać tylko znaków drukowalnych (ASCII 32-126) i ^będą wyświetlane tylko jako ^H. Backspace nigdy nie będzie się pojawiał na pustym tekście.

Nie można zakładać, że środowisko wyjściowe obsługuje kody sterujące, w szczególności kod cofania \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

Tabela liderów

Oto tabela liderów według języków, dzięki uprzejmości Martina Büttnera .

Aby upewnić się, że twoja odpowiedź się pojawi, zacznij od nagłówka, korzystając z następującego szablonu Markdown:

# Language Name, N bytes

gdzie Njest rozmiar twojego zgłoszenia. Jeśli poprawić swój wynik, to może zachować stare porachunki w nagłówku, uderzając je przez. Na przykład:

# 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 bajtów

:;s/.^H//;t

Wyjście testowe:

$ 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 bajtów

.U+PbZcz"^H

Demonstracja.

.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 bajtów

?#\^H=

Przykładowy przebieg:

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

CW, ponieważ przykład głupiec kontra dżentelmen trwa zbyt długo. (Zabity po dniu. Może usterka w tłumaczu? Wszystkie inne przykłady są przetwarzane w ułamkach sekund.) Poziom rekurencji nie wydaje się mieć wpływu na wzór rekurencyjny Gemy, ale ilość niepasującego tekstu wydłuża wykładniczo czas przetwarzania .

C, 52 bajty

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

Definiujemy funkcję, fktóra pobiera wskaźnik do łańcucha jako dane wejściowe. Po wywołaniu funkcji wskaźnik ten będzie zawierał zmodyfikowany ciąg.

Prosty test:

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

Powyższe wydruki:

Digital Trauma

Haskell, 47 bajtów

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

Definiuje funkcję f :: String -> String. Jak to działa:

    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 bajtów

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

Jak to działa

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

AKTUALIZACJA: 1 bajt zapisany dzięki jimmy23013

Wypróbuj online tutaj

Siatkówka, 13 bajtów

Siatkówka oka

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

Dwie linie powinny przejść do własnych plików, ale możesz uruchomić kod jako jeden plik z -sflagą.

Na każdym kroku usuwamy pierwsze dopasowanie dla .\^Hciągu. Powtarzamy to (z +modyfikatorem), dopóki nie nastąpi usunięcie.

JavaScript ( ES6 ), 39 bajtów

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 bajtów

(Kod 14 znaków + opcja wiersza poleceń 1 znak).

s/.\^H//&&redo

Przykładowy przebieg:

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 bajtów

Zaoszczędzono 16 bajtów dzięki manatwork i 1 dzięki Glen O!

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

Tworzy to funkcję rekurencyjną, która akceptuje ciąg i zwraca ciąg.

Zastępuje to jedno wystąpienie ^H naraz pustym łańcuchem, gdy dane wejściowe zawierają ^.

Przykłady:

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 bajtów

Używa REGXY , języka opartego na podstawieniu wyrażenia regularnego. Zastępuje dowolny znak, po którym następuje ^ H, niczym. Następnie wykonywana jest druga linia, która jest tylko wskaźnikiem do poprzedniej linii, powtarzając podstawienie, dopóki nie dopasuje się.

/.\^H//
//

To kompiluje się i wykonuje poprawnie z przykładowym tłumaczem w powyższym linku, ale rozwiązanie jest być może nieco bezczelne, ponieważ opiera się na założeniu niejasności specyfikacji języka. Specyfikacja określa, że ​​pierwszy token w każdym wierszu (przed /) działa jak etykieta, ale zakłada się, że pusty wskaźnik-wskaźnik wskaże z powrotem pierwsze polecenie w pliku z pustą etykietą (lub innymi słowy, że „null” jest prawidłową etykietą). Mniej bezczelnym rozwiązaniem byłoby:

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

Co odpowiada 13 bajtom.

Python 3, 53 bajty

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

Ale osobiście bardziej podoba mi się ta bardziej sformułowana wersja:

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

Ciekawe jest to, że

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

faktycznie działa i daje 'Back', więc starałem się map ^H -> [:-1]i innych char c -> 'c'wtedy eval, ale niestety nie można mieć żadnych ciągów potem bez +, więc to się nie powiedzie:

'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 bajtów

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

Przykład użycia:

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

Jak to działa:

                  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 bajtów

(Kod 19 znaków + opcja wiersza poleceń 1 znak.)

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

Dzięki:

• Ventero za sugerowanie użycia zmiennych globalnych (-4 znaki)

Przykładowy przebieg:

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

To trochę dziwne, mając sekundę lambda, ale wydaje się być najlepszym jak dotąd Pythonem.

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

Pyth - 19 bajtów

Zmniejszenie działa naprawdę, bardzo dobrze z tym, ale robi tylko jeden znak na raz, więc musiałem wydać prawie tyle znaków, ile rzeczywisty algo, aby zastąpić ^Hłamanie linii. Szukasz lepszego sposobu na zrobienie tego.

u?+GHnHbPGjbcz"^H"k

Wypróbuj online tutaj .

TeaScript , 7 bajtów [nie konkuruje]

Nie konkuruje, ponieważ TeaScript powstał po opublikowaniu tego wyzwania. To jest tutaj jako odniesienie.

xW/.\^H

Wykorzystuje nowy TeaScript 3 i rekurencyjne zamienia, aby usunąć znaki

K5, 64 bajty

K tak naprawdę nie jest przeznaczony do tego rodzaju pracy ...

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

golflua, 36 bajtów

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

Przykładowy przebieg:

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 bajty

Nie najkrótszy, ale działa dobrze.

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

Prawdopodobnie można to znacznie skrócić!

R, 54 52 bajtów

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

Ten sam podstawowy pomysł, co moja odpowiedź Julii . Tworzy to funkcję rekurencyjną, która akceptuje ciąg i zwraca ciąg. Jeśli dane wejściowe są sobie równe z jednym wystąpieniem^H usuniętego, zwróć je, w przeciwnym razie ponownie wywołaj funkcję.

Możesz spróbować online !

ECMAScript 6, 57 bajtów

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

Jest to prawdopodobnie gra w golfa, po prostu wymyślę sposób, który prawdopodobnie nie

Java, 78 77 bajtów

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

(Wizualnie) FoxPro dowolna wersja 80 bajtów

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

Powtarzanie tłumaczenia ciągu znaków na pusty przez znalezienie ^ H i utworzenie kopii zapasowej jednego znaku.

Julia, 41 39 bajtów

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

Wykorzystuje ^ H jako separator, a następnie usuwa ostatni znak z każdego łańcucha, a następnie konkatenuje następny łańcuch przed usunięciem ostatniego znaku. W przeciwieństwie do innych odpowiedzi Julii, nie jest to funkcja rekurencyjna.

Uwaga: usunąłem nazwę funkcji z definicji. Początkowo było to napisane f(s)=zamiast s->, a ty użyłeś go jako f("AAA^HB^H^H")... ale oszczędzam dwa bajty, pozwalając, aby był "anonimowy" i używał siebie jako nazwy. Używasz go w ten sposób:

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

(możesz także przypisać do niego zmienną, ponieważ f=s->foldl((t,v)->chop(t)v,split(s,"^H"))wtedy f("AAA^HB^H^H")będzie działać)

rs, 8 bajtów

Technicznie nie ma to znaczenia, ponieważ zależy to od funkcji dodanej po opublikowaniu tego pytania. Myślę jednak, że jest całkiem fajnie.

+?1.\^H/

Prezentacje na żywo i przypadki testowe .

Python 2, 74 + 2 = 76 bajtów

Do tej pory wypróbowałem kilka podejść, jest to najlepsze, jakie udało mi się do tej pory wymyślić.

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

Świnka, 84 bajtów

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

To może być prawdopodobnie krótsze jako funkcja (1 bajt, który udało mi się zapisać w szybkich testach), ale trochę podoba mi się aspekt jednowierszowy ... :-)

Aparat ortodontyczny pochodzi ze smaku Mumps Intersystems Cache, w którym jestem najbardziej zaznajomiony.

Java - 123 bajty

Osobiście najbardziej podoba mi się ta g---1część.

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

rozwinięty (nieznacznie):

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

Partia - 138 bajtów

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

Pierwszy wiersz to sposób na zaoszczędzenie kilku bajtów na dłuższą metę @echo off&setLocal enableDelayedExpansion(która wyłącza echo i umożliwia opóźnione rozszerzanie zmiennych, jeśli się zastanawiasz). Wyjaśniłem to w Poradach do gry w golfa w partii .

Druga linia to fajna sztuczka polegająca na zapisaniu znaku kontrolnego backspace w zmiennej. To dość zuchwałe i nie mogę udawać, że się za to uznam. To jest trochę wyjaśnione tutaj . Zasadniczo używa polecenia zachęty do wygenerowania znaku cofania i przechwytuje go w zmiennej - w tym przypadku !D!.

Ostatni wiersz następnie wykonuje prostą manipulację ciąg - wymienić ^Hz !D!<SPACE>!D!.

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

Niestety łamie się z przypadkami takimi jak "AAA^HB^H^H"- tam, gdzie powinien produkować "A", zamiast tego produkuje "A"B. Co jest nieco mylące. Będę musiał przyjrzeć się, jak manipulowanie ciągiem wsadowym działa bardziej szczegółowo.

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

Dzięki kilku pomocnym osobom tutaj - teraz zdaję sobie sprawę, że zapisywałem tylko znak backspace (0x08), a więc tylko nadpisywałem postacie. Działa teraz z następującymi przykładami:

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