Pada beberapa terminal, menekan backspace menghasilkan kode kontrol ^Huntuk menghapus karakter sebelumnya. Ini memunculkan idiom snarky di mana pengeditan dibuat-buat untuk efek komedi :

Bersikap baik kepada orang bodoh ini ^ H ^ H ^ H ^ Hgentleman, dia mengunjungi dari kantor pusat perusahaan.

Diberikan string dengan satu atau lebih ^H, output hasil backspacing pada masing-masing ^H. Input hanya akan menggunakan karakter yang dapat dicetak (ASCII 32-126), dan ^hanya akan muncul sebagai ^H. Spasi mundur tidak akan pernah terjadi pada teks kosong.

Anda mungkin tidak berasumsi bahwa lingkungan output mendukung kode kontrol, khususnya kode 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

Papan peringkat

Berikut adalah papan peringkat berdasarkan bahasa, milik Martin Büttner .

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda bisa menyimpan skor lama di headline, dengan mencoretnya. Misalnya:

# 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 byte

:;s/.^H//;t

Output tes:

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

.U+PbZcz"^H

Demonstrasi.

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

?#\^H=

Contoh dijalankan:

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

CW, karena contoh bodoh vs pria terlalu lama. (Dibunuh setelah sehari. Mungkin kesalahan pada penerjemah? Semua contoh lain di sini diproses dalam fraksi detik.) Pola rekursif Gema tampaknya tidak terpengaruh oleh tingkat rekursi, tetapi jumlah teks yang tidak cocok meningkatkan waktu pemrosesan secara eksponensial. .

C, 52 byte

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

Kami mendefinisikan fungsi fyang mengambil pointer ke string sebagai input. Setelah pemanggilan fungsi, penunjuk itu akan berisi string yang dimodifikasi.

Tes sederhana:

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

Cetakan di atas:

Digital Trauma

Haskell, 47 byte

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

Menentukan fungsi f :: String -> String. Bagaimana itu bekerja:

    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 byte

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

Bagaimana itu bekerja

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

PEMBARUAN: 1 byte disimpan berkat jimmy23013

Cobalah online di sini

Retina, 13 byte

Retina

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

Dua baris harus menuju ke file mereka sendiri tetapi Anda dapat menjalankan kode sebagai satu file dengan -sbendera.

Pada setiap langkah kami menghapus kecocokan pertama .\^Hdalam string. Kami ulangi ini (dengan +modifikator) hingga tidak ada penghapusan yang terjadi.

JavaScript ( ES6 ), 39 byte

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 byte

(14 karakter kode + 1 opsi opsi perintah karakter.)

s/.\^H//&&redo

Contoh dijalankan:

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 byte

Disimpan 16 byte berkat manatwork dan 1 berkat Glen O!

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

Ini menciptakan fungsi rekursif yang menerima string dan mengembalikan string.

Ini menggantikan satu kejadian ^Hsekaligus dengan string kosong saat input berisi ^.

Contoh:

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 byte

Menggunakan REGXY , bahasa berbasis pengganti regex. Mengganti karakter apa pun yang diikuti oleh ^ H dengan tidak ada. Baris kedua kemudian mengeksekusi yang hanya sebuah penunjuk ke baris sebelumnya, mengulangi subtitusi sampai gagal mencocokkan.

/.\^H//
//

Ini mengkompilasi dan mengeksekusi dengan benar dengan contoh juru bahasa pada tautan di atas, tetapi solusinya mungkin agak kurang ajar karena bergantung pada asumsi dalam ketidakjelasan spesifikasi bahasa. Spec menyatakan bahwa token pertama pada setiap baris (sebelum /) bertindak sebagai label, tetapi asumsinya adalah bahwa penunjuk label nol akan menunjuk kembali ke perintah pertama dalam file dengan label nol (atau dengan kata lain, bahwa 'nol' adalah label yang valid). Solusi yang kurang sopan adalah:

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

Yang berjumlah 13 byte.

Python 3, 53 byte

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

Tetapi secara pribadi saya lebih suka versi wordier ini:

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

Yang menarik adalah itu

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

benar-benar bekerja dan memberi 'Back', jadi saya mencoba memetakan ^H -> [:-1]dan char lainnya c -> 'c'saat itu eval, tetapi sayangnya Anda tidak dapat memiliki string setelahnya tanpa +, jadi ini gagal:

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

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

Contoh penggunaan:

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

Bagaimana itu bekerja:

                  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 byte

(19 karakter kode + 1 opsi baris perintah karakter.)

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

Terimakasih untuk:

• Ventero karena menyarankan untuk menggunakan variabel global (-4 karakter)

Contoh dijalankan:

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

Agak aneh memiliki yang kedua lambdadi sana, tetapi tampaknya menjadi Python terbaik sejauh ini.

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

Pyth - 19 byte

Mengurangi bekerja dengan sangat, sangat baik dengan ini, tetapi itu hanya melakukan satu karakter pada satu waktu jadi saya harus menghabiskan hampir sebanyak karakter sebagai algo sebenarnya untuk melakukan penggantian ^Hdengan linebreak. Mencari cara yang lebih baik untuk melakukan itu.

u?+GHnHbPGjbcz"^H"k

Cobalah online di sini .

TeaScript , 7 byte [Tidak bersaing]

Tidak bersaing karena TeaScript dibuat setelah tantangan ini diposting. Ini di sini sebagai referensi.

xW/.\^H

Ini menggunakan TeaScript 3 baru, dan diganti secara rekursif untuk menghapus karakter

K5, 64 byte

K tidak benar-benar dirancang untuk pekerjaan semacam ini ...

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

golflua, 36 byte

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

Contoh dijalankan:

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 byte

Bukan yang terpendek, tetapi berfungsi dengan baik.

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

Ini mungkin bisa dipersingkat banyak!

R, 54 52 byte

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

Ide dasar yang sama dengan jawaban Julia saya . Ini menciptakan fungsi rekursif yang menerima string dan mengembalikan string. Jika input sama dengan dirinya sendiri dengan satu kali penghapusan ^Hdihapus, kembalikan, atau panggil fungsi tersebut kembali.

Anda dapat mencobanya secara online !

ECMAScript 6, 57 byte

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

Ini mungkin golf, hanya memikirkan cara mungkin tidak

Java, 78 77 byte

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

(Visual) FoxPro versi 80 byte apa pun

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

Mengulang terjemahan string menjadi kosong dengan menemukan ^ H dan mencadangkan satu karakter.

Julia, 41 39 byte

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

Apa yang dilakukan adalah menggunakan ^ H sebagai pembatas, dan kemudian menghapus karakter terakhir pada setiap string kemudian menyatukan string berikutnya sebelum menghapus karakter terakhir lagi. Tidak seperti jawaban Julia lainnya, ini bukan fungsi rekursif.

Catatan: Saya telah menghapus nama fungsi dari definisi. Awalnya, katanya f(s)=bukan s->, dan Anda menggunakannya sebagai f("AAA^HB^H^H")... tapi saya menyimpan dua byte dengan membiarkannya menjadi "anonim", dan gunakan sendiri sebagai namanya. Anda menggunakannya seperti ini:

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

(Anda juga dapat menetapkan variabel sebagai f=s->foldl((t,v)->chop(t)v,split(s,"^H")), lalu f("AAA^HB^H^H")akan berfungsi)

rs, 8 byte

Secara teknis, ini tidak masuk hitungan, karena ini tergantung pada fitur yang saya tambahkan setelah pertanyaan ini diposting. Namun, saya pikir itu cukup rapi.

+?1.\^H/

Demo langsung dan uji kasus .

Python 2, 74 + 2 = 76 Bytes

Saya sudah mencoba beberapa pendekatan sejauh ini, ini adalah yang terbaik yang bisa saya dapatkan sejauh ini.

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

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

Ini mungkin bisa dibuat lebih pendek sebagai fungsi (1 byte saya dapat menyimpan dalam pengujian cepat) tapi saya agak suka aspek satu-liner ... :-)

Kawat gigi berasal dari rasa Intersystems Cache of Mumps yang merupakan hal yang paling saya fahami.

Java - 123 byte

Saya pribadi suka g---1bagian yang terbaik.

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

diperluas (sedikit):

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

Gelombang - 138 byte

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

Baris pertama adalah cara untuk menghemat beberapa byte lebih lama @echo off&setLocal enableDelayedExpansion(yang mematikan gema dan memungkinkan ekspansi variabel tertunda, jika Anda bertanya-tanya). Saya menjelaskannya dalam Tips untuk Golf di Batch .

Baris kedua adalah trik kecil yang rapi untuk menyimpan karakter kontrol backspace ke dalam variabel. Ini sangat berantakan, dan saya tidak bisa berpura-pura mengambil kredit untuk itu. Ini semacam dijelaskan di sini . Pada dasarnya menggunakan perintah prompt untuk menghasilkan karakter backspace dan menangkapnya dalam variabel - dalam hal ini !D!.

Baris terakhir kemudian melakukan manipulasi string sederhana - ganti ^Hdengan !D!<SPACE>!D!.

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

Sayangnya itu rusak dengan kasus-kasus seperti "AAA^HB^H^H"- di mana ia harus berproduksi "A", itu malah menghasilkan "A"B. Yang agak membingungkan. Saya harus melihat bagaimana manipulasi string Batch bekerja lebih dalam lagi.

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

Terima kasih kepada beberapa orang yang membantu di sini - Saya sekarang menyadari bahwa saya hanya menyimpan karakter backspace (0x08), dan begitu juga hanya menimpa karakter. Sekarang berfungsi dengan contoh-contoh seperti berikut:

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