Trên một số thiết bị đầu cuối, nhấn backspace sẽ tạo mã điều khiển ^Hđể xóa ký tự trước đó. Điều này đã dẫn đến một thành ngữ ngớ ngẩn trong đó các chỉnh sửa được cho là có hiệu lực hài :

Hãy tốt với kẻ ngốc này ^ H ^ H ^ H ^ Hgentman, anh ta đến từ trụ sở công ty.

Đưa ra một chuỗi có một hoặc nhiều ^H, xuất kết quả của khoảng cách trên mỗi chuỗi ^H. Đầu vào sẽ chỉ sử dụng các ký tự có thể in (ASCII 32-126) và ^sẽ chỉ xuất hiện dưới dạng ^H. Backspaces sẽ không bao giờ xảy ra trên văn bản trống.

Bạn không được cho rằng môi trường đầu ra hỗ trợ các mã điều khiển, đặc biệt là mã 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

Bảng xếp hạng

Đây là bảng xếp hạng ngôn ngữ, lịch sự của Martin Büttner .

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

# Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

# 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

Đầu ra thử nghiệm:

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

Bình thường, 11 byte

.U+PbZcz"^H

Trình diễn, thuyết trình.

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

Chạy mẫu:

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

CW, bởi vì ví dụ ngu ngốc so với quý ông mất quá nhiều thời gian. . .

C, 52 byte

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

Chúng tôi xác định một hàm flấy một con trỏ tới chuỗi làm đầu vào. Sau khi gọi hàm, con trỏ đó sẽ chứa một chuỗi đã sửa đổi.

Một bài kiểm tra đơn giản:

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

Các bản in trên:

Digital Trauma

Haskell, 47 byte

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

Xác định một hàm f :: String -> String. Làm thế nào nó hoạt động:

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

Làm thế nào nó hoạt động

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

CẬP NHẬT: 1 byte được lưu nhờ vào jimmy23013

Dùng thử trực tuyến tại đây

Võng mạc, 13 byte

Võng mạc

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

Hai dòng sẽ đi đến các tệp riêng của chúng nhưng bạn có thể chạy mã dưới dạng một tệp có -scờ.

Ở mỗi bước, chúng tôi xóa kết quả khớp đầu tiên .\^Htrong chuỗi. Chúng tôi lặp lại điều này (với công cụ +sửa đổi) cho đến khi không có xóa.

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

(Mã 14 ký tự + 1 ký tự tùy chọn dòng lệnh.)

s/.\^H//&&redo

Chạy mẫu:

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

Đã lưu 16 byte nhờ thao tác và 1 nhờ Glen O!

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

Điều này tạo ra một hàm đệ quy chấp nhận một chuỗi và trả về một chuỗi.

Điều này thay thế một lần xuất hiện ^Htại một thời điểm bằng một chuỗi trống trong khi đầu vào chứa ^.

Ví dụ:

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

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

ĐĂNG KÝ, 10 byte

Sử dụng REGXY , một ngôn ngữ dựa trên regex thay thế. Thay thế bất kỳ ký tự nào theo sau ^ H không có gì. Dòng thứ hai sau đó thực thi chỉ là một con trỏ đến dòng trước đó, lặp lại sự thay thế cho đến khi nó không khớp.

/.\^H//
//

Điều này biên dịch và thực thi chính xác với trình thông dịch mẫu trong liên kết ở trên, nhưng giải pháp có lẽ hơi táo tợn vì nó dựa vào một giả định về sự mơ hồ của đặc tả ngôn ngữ. Thông số kỹ thuật nói rằng mã thông báo đầu tiên trên mỗi dòng (trước /) hoạt động như một nhãn, nhưng giả định là con trỏ nhãn null sẽ quay lại lệnh đầu tiên trong tệp có nhãn null (hay nói cách khác là rằng 'null' là nhãn hợp lệ). Một giải pháp ít táo tợn hơn sẽ là:

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

Số tiền lên tới 13 byte.

Python 3, 53 byte

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

Nhưng cá nhân tôi thích phiên bản wordier này tốt hơn:

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

Điều thú vị là

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

Thực sự hoạt động và cho đi 'Back', vì vậy tôi đã cố gắng lập bản đồ ^H -> [:-1]và bất kỳ char nào khác c -> 'c'sau đó eval, nhưng thật không may, bạn không thể có bất kỳ chuỗi nào sau đó mà không có a +, vì vậy điều này thất bại:

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

Ví dụ sử dụng:

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

Làm thế nào nó hoạt động:

                  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

(Mã 19 ký tự + 1 ký tự tùy chọn dòng lệnh.)

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

Nhờ vào:

• Ventero đã đề xuất sử dụng các biến toàn cục (-4 ký tự)

Chạy mẫu:

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.

Con trăn 2, 50

Có một chút kỳ lạ khi có một giây lambdatrong đó, nhưng dường như là Python tốt nhất cho đến nay.

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

Pyth - 19 byte

Giảm hoạt động thực sự, thực sự tốt với điều này nhưng nó chỉ thực hiện một char mỗi lần nên tôi đã phải sử dụng gần như nhiều ký tự như thuật toán thực tế để thay thế ^Hbằng ngắt dòng. Tìm kiếm một cách tốt hơn để làm điều đó.

u?+GHnHbPGjbcz"^H"k

Hãy thử trực tuyến tại đây .

TeaScript , 7 byte [Không cạnh tranh]

Không cạnh tranh như TeaScript đã được thực hiện sau khi thử thách này được đăng. Đây là tài liệu tham khảo.

xW/.\^H

Điều này sử dụng TeaScript 3 mới và thay thế đệ quy để loại bỏ các ký tự

K5, 64 byte

K không thực sự được thiết kế cho loại công việc này ...

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

Chạy mẫu:

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

Không phải là ngắn nhất, nhưng hoạt động tốt.

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

Điều này có lẽ có thể được rút ngắn rất nhiều!

R, 54 52 byte

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

Ý tưởng cơ bản giống như câu trả lời Julia của tôi . Điều này tạo ra một hàm đệ quy chấp nhận một chuỗi và trả về một chuỗi. Nếu đầu vào bằng chính nó với một lần xuất hiện ^Hbị loại bỏ, hãy trả lại, nếu không hãy gọi lại hàm.

Bạn có thể thử trực tuyến !

ECMAScript 6, 57 byte

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

Đây có lẽ là golf, chỉ cần nghĩ ra một cách có thể không

Java, 78 77 byte

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

(Trực quan) FoxPro bất kỳ phiên bản 80 byte

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

Lặp lại dịch chuỗi thành trống bằng cách tìm ^ H và sao lưu một ký tự.

Julia, 41 39 byte

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

Những gì nó đang làm là sử dụng ^ H làm dấu phân cách, và sau đó xóa ký tự cuối cùng trên mỗi chuỗi sau đó nối chuỗi tiếp theo trước khi xóa lại ký tự cuối cùng. Không giống như câu trả lời khác của Julia, đây không phải là một hàm đệ quy.

Lưu ý: Tôi đã xóa tên hàm khỏi định nghĩa. Ban đầu, nó nói f(s)=đúng hơn là s->, và bạn đã sử dụng nó như f("AAA^HB^H^H")... nhưng tôi đang tiết kiệm hai byte bằng cách để nó là "ẩn danh" và sử dụng chính nó làm tên của nó. Bạn sử dụng nó như thế này:

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

(bạn cũng có thể gán một biến cho nó là f=s->foldl((t,v)->chop(t)v,split(s,"^H")), sau đó f("AAA^HB^H^H")sẽ hoạt động)

rs, 8 byte

Về mặt kỹ thuật, điều này không được tính, vì nó phụ thuộc vào một tính năng tôi đã thêm sau khi câu hỏi này được đăng. Tuy nhiên, tôi nghĩ nó khá gọn gàng.

+?1.\^H/

Bản demo và trường hợp thử nghiệm trực tiếp .

Python 2, 74 + 2 = 76 byte

Tôi đã thử một vài cách tiếp cận cho đến nay, đây là cách tốt nhất mà tôi có thể đưa ra cho đến nay.

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

Quai bị, 84 byte

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

Điều này có thể được thực hiện ngắn hơn dưới dạng một hàm (1 byte tôi có thể lưu trong thử nghiệm nhanh) nhưng tôi giống như khía cạnh một lớp lót ... :-)

Niềng răng đến từ hương vị Cache của Intersystems, đó là điều tôi thành thạo nhất.

Java - 123 byte

Cá nhân tôi thích g---1phần tốt nhất.

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

mở rộng (một chút):

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

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

Dòng đầu tiên là một cách lưu một vài byte trong thời gian dài @echo off&setLocal enableDelayedExpansion(tắt tiếng vang và cho phép mở rộng các biến bị trì hoãn, trong trường hợp bạn đang tự hỏi). Tôi đã giải thích nó trong Mẹo chơi gôn trong Batch .

Dòng thứ hai là một mẹo nhỏ gọn gàng để lưu ký tự điều khiển backspace vào một biến. Nó khá là hack, và tôi không thể giả vờ lấy tín dụng cho nó. Nó được giải thích ở đây . Về cơ bản sử dụng lệnh prompt để tạo một ký tự backspace và bắt nó trong một biến - trong trường hợp này !D!.

Dòng cuối cùng sau đó thực hiện thao tác chuỗi đơn giản của - thay thế ^Hbằng !D!<SPACE>!D!.

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

Thật không may, nó phá vỡ với các trường hợp như "AAA^HB^H^H"- nơi nó nên sản xuất "A", thay vào đó nó sản xuất "A"B. Mà có phần khó hiểu. Tôi sẽ phải xem xét cách thao tác chuỗi Batch hoạt động ở độ sâu hơn.

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

Cảm ơn một số người hữu ích ở đây - bây giờ tôi nhận ra rằng tôi chỉ lưu ký tự backspace (0x08), và do đó chỉ ghi đè lên các ký tự. Bây giờ nó hoạt động với các ví dụ như sau:

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