На некоторых терминалах нажатие клавиши backspace генерирует управляющий код ^Hдля удаления предыдущего символа. Это породило странную идиому, где симулируются правки для комедийного эффекта :

Будьте добры к этому дураку ^ H ^ H ^ H ^ Hgentleman, он приезжает из корпоративного штаба.

Если задана строка с одним или несколькими ^Hсимволами, выведите результат возврата на каждый ^H. Для ввода будут использоваться только печатные символы (ASCII 32-126), и они ^будут отображаться только как ^H. 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

Leaderboard

Вот список лидеров по языкам, любезно предоставленный Мартином Бюттнером .

Чтобы убедиться, что ваш ответ обнаружен, начните его с заголовка, используя следующий шаблон уценки:

# 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 байтов благодаря manatwork и 1 благодаря Glen O!

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/

Благодаря:

• Ventero за предложение использовать глобальные переменные (-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.

Python 2, 50

Немного странно, что там есть секунда lambda, но пока, похоже, лучший Python.

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

Pyth - 19 байт

Реду работает действительно, очень хорошо с этим, но он делает только один символ за раз, поэтому мне пришлось потратить почти столько же символов, сколько и действующий алгоритм, чтобы заменить ^Hна разрыв строки. Ищите лучший способ сделать это.

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]}/

golflua, 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}

Это, вероятно, игра в гольф, просто должен придумать способ, вероятно, нет

Ява, 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/

Живая демоверсия и тестовые случаи .

Python 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 байт, который я смог сохранить в быстром тестировании), но мне нравится аспект с одной строкой ... :-)

Брекеты взяты из аромата Mumps из 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. Что несколько сбивает с толку. Я должен разобраться, как работает групповая обработка строк, более подробно.

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

Благодаря некоторым полезным людям здесь - теперь я понимаю, что я сохранял только символ возврата (0x08) и перезаписывал только символы. Теперь он работает с примерами, подобными следующим:

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