На деяких терміналах натискання на зворотному просторі створює керуючий код ^Hдля видалення попереднього символу. Це породило химерну ідіому, коли для комедійного ефекту виправлені зміни :

Будьте приємні до цього дурня ^ H ^ H ^ H ^ Hgentleman, він відвідує корпоративний штаб.

Давши рядок з одним або декількома ^H, виведіть результат зворотного пробілу на кожен ^H. Для введення використовуються лише символи для друку (ASCII 32-126) і ^відображатимуться лише як ^H. Зворотні простори ніколи не трапляться на порожньому тексті.

Ви можете не припускати, що вихідне середовище підтримує коди управління, зокрема код зворотної області \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

Таблиця лідерів

Ось мовна таблиця мов, люб’язно надана Мартіном Бюттнером .

Щоб переконатися, що ваша відповідь відображається, будь ласка, почніть свою відповідь із заголовка, використовуючи наступний шаблон Markdown:

# Language Name, N bytes

де Nрозмір вашого подання. Якщо ви покращите свій рахунок, ви можете зберегти старі бали у заголовку, прокресливши їх. Наприклад:

# 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 байт

:;s/.^H//;t

Тестовий вихід:

$ 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 байт

.U+PbZcz"^H

Демонстрація.

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

Гема, 6 байт

?#\^H=

Проба зразка:

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

CW, тому що приклад дурня проти джентльмена займає дуже багато часу. (Вбито через день. Можливо, в інтерпретаторі виникне збій? Усі інші приклади тут обробляються частинами секунд.) На рекурсивну схему Gema не впливає рівень рекурсії, але кількість невідповідного тексту збільшує час обробки експоненціально .

C, 52 байти

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

Ми визначаємо функцію, fяка приймає вказівник на рядок як вхідний. Після виклику функції цей покажчик буде містити модифікований рядок.

Простий тест:

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

Наведені вище відбитки:

Digital Trauma

Haskell, 47 байт

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

Визначає функцію f :: String -> String. Як це працює:

    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 байт

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

Як це працює

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

ОНОВЛЕННЯ: 1 байт збережено завдяки jimmy23013

Спробуйте його онлайн тут

Сітківка, 13 байт

Сітківка

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

Два рядки повинні мати власні файли, але ви можете запустити код як один файл із -sпрапором.

На кожному кроці ми видаляємо першу відповідність .\^Hу рядку. Повторюємо це (з +модифікатором), поки не відбудеться видалення.

JavaScript ( ES6 ), 39 байт

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 байт

(Код 14 символів + параметр командного рядка з 1 символом.)

s/.\^H//&&redo

Проба зразка:

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.

Джулія, 58 42 41 байт

Збережено 16 байт завдяки манатурству та 1 подяку Глен О!

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

Це створює рекурсивну функцію, яка приймає рядок і повертає рядок.

Це замінює одночасне виникнення ^Hпорожнього рядка, а вхід містить ^.

Приклади:

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 байт

Використовує REGXY , мову на основі заміщення регулярних виразів . Замінює будь-який символ, за яким слідує ^ H нічим. Потім виконується другий рядок, який є лише вказівником на попередній рядок, повторюючи заміну, поки вона не збігається.

/.\^H//
//

Це компілюється та виконується правильно з інтерпретатором зразка за посиланням, наведеним вище, але рішення, можливо, дещо сміливе, оскільки воно покладається на припущення про розпливчастість мовної специфікації. Специфікація зазначає, що перший маркер у кожному рядку (перед /) діє як мітка, але припущення полягає в тому, що нульовий мітка-вказівник буде вказувати на першу команду у файлі з нульовою міткою (або іншими словами, що 'null' є дійсною міткою). Менш нахабним рішенням було б:

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

Що становить 13 байт.

Python 3, 53 байти

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

Але особисто мені подобається ця більш жорстка версія:

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

Цікавим є те, що

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

насправді працює і дає 'Back', тому я спробував скласти карту ^H -> [:-1]та будь-які інші символи c -> 'c'тоді eval, але, на жаль, ви не можете мати жодних рядків після цього без +, тому це не вдається:

'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 байт

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

Приклад використання:

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

Як це працює:

                  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

Рубі, 27 24 20 байт

(Код 19 символів + 1 символ командного рядка.)

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

Завдяки:

• Вентеро за пропозицію використовувати глобальні змінні (-4 символи)

Проба зразка:

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.

Пітон 2, 50

Це трохи дивно мати секунду lambdaтам, але, здається, найкращий Python поки що.

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

Pyth - 19 байт

Скорочення працює справді, дуже добре з цим, але це робить лише один знак за один раз, тому мені довелося витратити майже стільки символів, скільки власне альго, щоб зробити заміну ^Hна linebreak. Шукаєте кращого способу зробити це.

u?+GHnHbPGjbcz"^H"k

Спробуйте його онлайн тут .

TeaScript , 7 байт [не конкурує]

Не змагаючись, оскільки TeaScript був зроблений після публікації цього виклику. Це тут як довідка.

xW/.\^H

Для цього використовується новий TeaScript 3, а для видалення символів відбувається рекурсивна заміна

К5, 64 байти

K насправді не призначений для такої роботи ...

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

гольфлуа, 36 байт

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

Проба зразка:

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 байти

Не найкоротший, але працює чудово.

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

Це, напевно, можна дуже скоротити!

R, 54 52 байти

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

Та сама основна ідея, як і моя відповідь Юлії . Це створює рекурсивну функцію, яка приймає рядок і повертає рядок. Якщо вхід дорівнює самому одному ^Hвилученню, поверніть його, інакше знову викликайте функцію.

Ви можете спробувати онлайн !

ECMAScript 6, 57 байт

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

Це, мабуть, гольф, просто треба думати про спосіб, мабуть, не

Java, 78 77 байт

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

(Visual) FoxPro будь-якої версії 80 байт

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

Повторення перекладу рядка порожнім, знайшовши ^ H та створивши резервну копію одного символу.

Джулія, 41 39 байт

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

Це - використання ^ H як роздільника, а потім видалення останнього символу з кожного рядка, а потім об'єднання наступного рядка перед тим, як знову видалити останній символ. На відміну від інших відповідей Юлії, це не рекурсивна функція.

Примітка. Ім'я функції вилучено з визначення. Спочатку це було сказано, f(s)=а не s->, і ви використовували це як f("AAA^HB^H^H")... але я зберігаю два байти, дозволяючи йому бути "анонімним", і використовую себе як своє ім'я. Ви використовуєте його так:

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

(Ви також можете призначити йому змінну як f=s->foldl((t,v)->chop(t)v,split(s,"^H")), тоді f("AAA^HB^H^H")буде працювати)

rs, 8 байт

Технічно це не враховується, оскільки це залежить від функції, яку я додав після розміщення цього питання. Однак я думаю, що це досить акуратно.

+?1.\^H/

Демонстраційні демонстраційні та тестові приклади .

Пітон 2, 74 + 2 = 76 байт

Я спробував кілька підходів до цього часу, це найкраще, що я міг придумати до цих пір.

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

Свинка, 84 байт

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

Можливо, це може бути скорочене як функцію (1 байт мені вдалося зберегти при швидкому тестуванні), але мені якось подобається однолінійний аспект ... :-)

Підтяжки походять від аромату свинки Intersystems Cache, що саме я найбільше знаю.

Java - 123 байти

Мені особисто подобається g---1найкраща частина.

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

розширений (злегка):

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

Пакет - 138 байт

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

Перший рядок - це спосіб збереження декількох байт на довгий @echo off&setLocal enableDelayedExpansion(який вимикає відлуння та дозволяє затримати розширення змінних, якщо вам було цікаво). Я пояснив це в Порадих щодо гольфу в Партії .

Другий рядок - це акуратний маленький трюк для збереження символу управління заднім простором у змінну. Це досить хакі, і я не можу претендувати на те, що беру на це кредит. Це свого роду пояснено тут . В основному використовує команду prompt для створення символу резервної області та захоплює його змінною - у цьому випадку !D!.

Заключний рядок виконує просту маніпуляцію з рядком - замінити ^Hна !D!<SPACE>!D!.

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

На жаль, він розривається із справами на кшталт "AAA^HB^H^H"- де він повинен виробляти "A", він замість цього виробляє "A"B. Що дещо заплутано. Мені доведеться вивчити, як працює маніпуляція Batch string на деякій більшій глибині.

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

Завдяки деяким корисним людям тут - я тепер усвідомлюю, що я зберігав лише символ зворотного простору (0x08), і так лише переписував символи. Тепер він працює з такими прикладами:

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