Вызов:

Учитывая строку, содержащую только заглавные и / или строчные буквы (в зависимости от того, что вы предпочитаете), поместите ее tapeгоризонтально, чтобы исправить это. Мы делаем это, проверяя разницу между двумя соседними буквами в алфавите (игнорируя циклический переход и только продвигаясь вперед) и заполняя пространство таким количеством TAPE/, tapeкак нам нужно.

Пример:

Вход: abcmnnnopstzra
Выход:abcTAPETAPETmnnnopTAstTAPETzra

Зачем?

• Между cи mдолжно быть defghijkl(длина 9), поэтому мы заполняем это TAPETAPET;
• Между pи sдолжно быть qr(длина 2), поэтому мы заполняем это TA;
• Между tи zдолжно быть uvwxy(длина 5), поэтому мы заполняем это TAPET.

Правила соревнований:

• Разница применяется только вперед, поэтому нет ленты между ними zra.
• Можно иметь несколько одинаковых соседних букв, например nnn.
• Вам разрешено принимать входные данные в любом разумном формате. Может быть единственной строкой, строковым массивом / списком, символьным массивом / списком и т. Д. Вывод имеет такую ​​же гибкость.
• Вам разрешается использовать строчные и / или прописные буквы любым удобным для вас способом. Это относится как к входу, так и к выводу TAPE.
• Возможно, нет TAPEнеобходимости, и в этом случае вход остается неизменным.

Основные правила:

• Это код-гольф , поэтому выигрывает самый короткий ответ в байтах.
  Не позволяйте языкам кода-гольфа отговаривать вас от публикации ответов на языках, не относящихся к кодексу. Попробуйте придумать как можно более короткий ответ для «любого» языка программирования.
• К вашему ответу применяются стандартные правила , поэтому вы можете использовать STDIN / STDOUT, функции / метод с правильными параметрами и типом возврата, полные программы. Ваш звонок.
• По умолчанию лазейки запрещены.
• Если возможно, добавьте ссылку на тест для вашего кода.
• Также, пожалуйста, добавьте объяснение, если это необходимо.

Тестовые случаи:

Input:  "abcmnnnopstzra"
Output: "abcTAPETAPETmnnnopTAstTAPETzra"

Input:  "aza"
Output: "aTAPETAPETAPETAPETAPETAPEza"

Input:  "ghijk"
Output: "ghijk"

Input:  "aabbddeeffiiacek"
Output: "aabbTddeeffTAiiaTcTeTAPETk"

Input:  "zyxxccba"
Output: "zyxxccba"

Input:  "abccxxyz"
Output: "abccTAPETAPETAPETAPETAPExxyz"

Input:  "abtapegh"
Output: "abTAPETAPETAPETAPETtaTAPETAPETAPETApeTgh"

Input:  "tape"
Output: "taTAPETAPETAPETApe"

05AB1E , 14 12 байт

'¡ÉIÇ¥<∍‚ζJJ

Попробуйте онлайн!

объяснение

'¡É            # push the string "tape"
   I           # push input
    Ç          # convert to a list of character codes
     ¥         # calculate deltas
      <        # decrement
       ∍       # extend the string "tape" to each of these sizes
               # results in an empty string for sizes smaller than zero
        ‚ζ     # zip with input (results in a list of pairs)
          JJ   # join to a list of strings and then to a string

Желе , 13 байт

OI’“¡ʂƁ»ṁ$€ż@

Попробуйте онлайн!

объяснение

OI '«¡ʂƁ» ṁ $ € ż @ - Полная программа. Возьмите строку в качестве аргумента командной строки.
О - Порядковый. Получить значения ASCII каждого символа.
 I '- получить приращения (дельты) и вычесть 1 из каждого.
          € - за каждую разницу я ...
   «¡ꟅƁ» ṁ $ - сформировать сжатую строку «лента» в соответствии с этими значениями.
                В основном расширяет / укорачивает «ленту» до необходимой длины.
           ż @ - чередовать со входом.

Haskell , 58 байт

f(x:y:r)=x:take(length[x..y]-2)(cycle"TAPE")++f(y:r)
f s=s

Попробуйте онлайн! Функция fрекурсивно просматривает строку и просматривает последовательные символы xи y. cycle"TAPE"дает бесконечную строку "TAPETAPETAPE...". [x..y]получает диапазон символов от xдо yвключительно, так что мы должны вычесть два из длины. В случае, если xв алфавите встречается позднее, тогда yили оба являются одним и тем же символом, мы получаем отрицательное число после вычитания, но, к счастью, takeпринимаем их и просто ничего не берем .

Perl 5 , -F46 байт

#/usr/bin/perl -F
use 5.10.0;
say map{((P,E,T,A)x7)[2..-$^H+($^H=ord)],$_}@F

Попробуйте онлайн!

Python 2 , 96 87 80 байт

lambda s:''.join(c+(C>c)*('TAPE'*6)[:ord(C)+~ord(c)]for c,C in zip(s,s[1:]+' '))

Попробуйте онлайн!

Haskell , 64 байта

t="TAPE"++t
e=fromEnum
f(x:y:z)=x:take(e y-e x-1)t++f(y:z)
f x=x

Обрабатывает строки из заглавных или строчных букв, но не одновременно.

Попробуйте онлайн!

C, 84 байта

i,l;f(char*s){for(;*s;)for(putchar(l=*s++),l=s[i=0]+~l;i<l;)putchar("TAPE"[i++%4]);}

Попробуйте онлайн!

C (запускается из командной строки Windows), 81 байт

i,l;f(char*s){for(;putchar(l=*s++);)for(l=s[i=0]+~l;i<l;)putchar("TAPE"[i++%4]);}

Выход:

Python 3 , 98 байт

lambda a:"".join(sum(zip(a,[("TAPE"*9)[:y>x and~ord(x)+ord(y)]for x,y in zip(a,a[1:])]),()))+a[-1]

Попробуйте онлайн!

-1 байт благодаря Асоне Тухиду

Скала , 66 байт

(s:String)=>s./:("z"){(o,c)=>o+("TAPE"*6).take(c-o.last-1)+c}.tail

Попробуйте онлайн!

объяснение

/: foldLeft over the string
("z") starting with a non-empty string to we don't have to handle the first iteration in a special way
"TAPE"*6 generate a long enough string of TAPETAPETA...
.take(c-o.last-1) take the difference between this character and the previous (now the last char in the output so far) characters from the TAPETAPETA... string. o.last will always be safe because we start with a non-empty string.
o+...+c append it to the output so far ... and add this character to the end
.tail get rid of the leading z we added

PHP , 85 байт

$s=str_split($argv[1]);foreach($s as$l)echo str_pad($l,ord(next($s))-ord($l),'TAPE');

Попробуйте онлайн!

объяснение

$s = str_split($argv[1]);   // convert the parameter string to an array
foreach($s as $l)           // loop the array
echo str_pad(               // print
  $l,                       // the letter
  ord(next($s)) - ord($l),  // calculate the distance to the next letter using ASCII values
  'TAPE'                    // padding string
);                          // profit!

Javascript, 131 127 байт

4 байта сэкономлено благодаря Рику Хичкоку.

z=(a=>[...a].reduce((x,y)=>x+[...Array((f=y[c='charCodeAt']()-x.slice(-1)[c]())>1?f-1:0)].reduce((e,r,t)=>e+"TAPE"[t%4],"")+y))

разматывается

г = а => [... а] .reduce (
  (Х, у) =>
    x + [... Array (
      (f = y.charCodeAt () - (x.slice (-1) .charCodeAt ()))> 1? (ф-1): 0
    )]. Снизить (
      (Е, г, т) => 
        e + "TAPE" [t% 4], "") + y
);

Моя проблема здесь в том, что у Javascript не было чистого способа получить расстояние между символами a и b.

<script>
  z=(a=>[...a].reduce((x,y)=>x+[...Array((f=y[c='charCodeAt']()-x.slice(-1)[c]())>1?f-1:0)].reduce((e,r,t)=>e+"TAPE"[t%4],"")+y))
</script>

<main>
  <input id="input-box" type="text">
  <pre id=output>output</pre>
</main>

<script>
  inputBox = document.getElementById("input-box");
  inputBox.addEventListener("keyup", function(e){
    output.innerText = z(inputBox.value);
  });
</script>

Python 2/3 , 70 69 байт

f=lambda s,*t:t and s+('TAPE'*6)[:max(ord(t[0])+~ord(s),0)]+f(*t)or s

Попробуйте онлайн!

Древесный уголь , 20 байтов

⭆θ⁺…TAPE∧κ⊖⁻℅ι℅§θ⊖κι

Попробуйте онлайн! Объяснение:

 θ              θ       Input string
⭆                       Map over characters
                  κ     Current index
                 ⊖      Decremented
               §        Index into string
             ι          Current character
            ℅ ℅         Ordinal
           ⁻            Subtract
          ⊖             Decremented
         κ              Current index
        ∧               Logical and
    TAPE                Literal string
   …                    Mold to length
                   ι    Current character
  ⁺                     Concatenate
                        Implicitly print

Пип , 29 байт

O@a{"TAPE"@<MX[0v-$-Ag]}.BMPa

Принимает ввод как аргумент командной строки (строчные или прописные, не имеет значения). Попробуйте онлайн!

объяснение

O@a{"TAPE"@<MX[0v-$-Ag]}.BMPa
                               a is 1st cmdline arg; v is -1 (implicit)
O                              Output without newline
 @a                            the first character of a
                          MPa  Map this function to pairs of successive characters of a:
                    Ag          Get the ASCII codes of the two characters
                  $-            Fold on subtraction (i.e. asc(first)-asc(second))
                v-              -1 minus the above (i.e. asc(second)-asc(first)-1)
              [0      ]         A list containing 0 and the above
            MX                  Max of the list
          @<                    The first ^ characters (with cyclic indexing)
    "TAPE"                      of this string
   {                   }.B      Concatenate the second character

JavaScript (ES6), 80 78 байт

f=([s,...S],t=S[0])=>t?s.padEnd((t>s)*(parseInt(s+t,36)-370)%37,'TAPE')+f(S):s

Расстояние между двумя символами можно определить путем преобразования их конкатенации в базу 36, вычитая 370, модуль 37.

Например, (parseInt('cy',36)-370)%37 == 22.

Затем мы можем использовать padEndдля заполнения пробелов и рекурсии для обработки цикла.

Тестовые случаи:

f=([s,...S],t=S[0])=>t?s.padEnd((t>s)*(parseInt(s+t,36)-370)%37,'TAPE')+f(S):s

console.log(f('abcmnnnopstzra'));
console.log(f('aza'));
console.log(f('ghijk'));
console.log(f('aabbddeeffiiacek'));
console.log(f('zyxxccba'));
console.log(f('abccxxyz'));
console.log(f('abtapegh'));
console.log(f('tape'));

К4 , 48 байт

Решение:

{,/_[w;x],',[1_d w:&0<d:-1+-':"j"$x;0]#\:"TAPE"}

Примеры:

q)k){,/_[w;x],',[1_d w:&0<d:-1+-':"j"$x;0]#\:"TAPE"}"abcmnnnopstzra"
"abcTAPETAPETmnnnopTAstTAPETzra"
q)k){,/_[w;x],',[1_d w:&0<d:-1+-':"j"$x;0]#\:"TAPE"}"aza"
"aTAPETAPETAPETAPETAPETAPEza"
q)k){,/_[w;x],',[1_d w:&0<d:-1+-':"j"$x;0]#\:"TAPE"}"zyxxccba"
"zyxxccba"
q)k){,/_[w;x],',[1_d w:&0<d:-1+-':"j"$x;0]#\:"TAPE"}"aabbddeeffiiacek"
"aabbTddeeffTAiiaTcTeTAPETk"

Объяснение:

Довольно простое решение, но большое количество байтов ... Найти дельты, взять из строки "TAPE", присоединиться к исходному разрезу строки, где дельты> 1.

{,/_[w;x],',[1_d w:&0<d:-1+-':"j"$x;0]#\:"TAPE"} / the solution
{                                              } / lambda
                                         "TAPE"  / the string TAPE
                                      #\:        / take each-left
           ,[                      ; ]           / join (,)
                                   0             / zero (ie append zero)           
                              "j"$x              / cast input to int
                           -':                   / deltas
                        -1+                      / subtract 1
                      d:                         / assign to d
                    0<                           / delta greater than 0?
                   &                             / indices where true
                 w:                              / assign to w
               d                                 / index into deltas at w
             1_                                  / drop first
         ,'                                      / join each-both
   _[w;x]                                        / cut input x at indices w
 ,/                                              / flatten

Excel VBA, 106 байт

Функция анонимного непосредственного окна VBE, которая принимает входные данные в виде заглавной строки через ячейку A1и выводит их в непосредственное окно VBE.

a=90:For i=1To[Len(A1)]:c=Mid([A1],i,1):b=Asc(c):For j=2To b-a:?Mid("peta",j Mod 4+1,1);:Next:?c;:a=b:Next

Рубин , 59 53 байта

->s{s.reduce{|x,y|x+y.rjust(y.ord-x[-1].ord,"TAPE")}}

Попробуйте онлайн!

Это на самом деле довольно просто - мы принимаем входные данные как разделив нашу строку на массив символов (спасибо Asone Tuhid за указание на это) и применяем операцию Reduce, где мы выравниваем каждый символ до требуемой длины, используя «TAPE» в качестве строки-заполнителя.

K (ок) , 33 байта

{,/((0|-1+0,1_-':x)#\:"TAPE"),'x}

Попробуйте онлайн!

{ } анонимная функция с аргументом x

-':x вычтите каждый предыдущий (используйте воображаемый 0 перед первым элементом)

1_ уронить первый предмет

0, добавить 0

-1+ добавить -1

0| max (0, ...)

(... )#\:"TAPE"изменить форму "TAPE"каждого элемента из списка слева

(... ),'xдобавить соответствующий символ из xкаждой измененной строки

,/ объединить все

Рубин , 78 77 64 62 байта

-1 байт благодаря Кевину Круйссену

f=->s,*t{t[0]?s+('TAPE'*6)[0,[0,t[0].ord+~s.ord].max]+f[*t]:s}

Попробуйте онлайн!

Java (JDK) , 91 байт

s->{var p='z';for(var c:s)System.out.print("ETAP".repeat(9).substring(1,c>p?c-p:1)+(p=c));}

Попробуйте онлайн!

объяснение

s->{                       // char[]-accepting lambda consumer, printing a String
 var p='z';                //  store the previous character
 for(var c:s){             //  for each character of the string
  System.out.print(        //   print...
   "ETAP".repeat(9)        //    "ETAP" repeated 9 times (to go above 26 chars)
    .substring(1,          //     of which, we substring c-p -1 characters
     c>p?c-p:1             //
    )                      //
   +(p=c)                  //    and append c, while also storing the previous character
  );

кредиты

• -2 байта благодаря RM
• -4 байта, благодаря floorcat , путем обновления до Java 10+ и переключения типов наvar
• -3 байта благодаря Кевину Круйссену , печатая результат моей (ранее) альтернативной версии вместо того, чтобы возвращать ее

C # (.NET Core) , 122 111 байт

Сохранено 11 байтов благодаря @KevinCruijssen

s=>{var r=""+s[0];for(int i=1,e,d;i<s.Length;r+=s[i++])for(e=d=s[i]-s[i-1];d-->1;)r+="ETAP"[(e-d)%4];return r;}

Попробуйте онлайн!

Объяснение:

s => 
{
    var r = "" + s[0];                  //Declare string for the result and initialize with the first character from the input.
    for (                               //Loop over the input,
        int i = 1, e, d;                //starting with the second character, also declare helper variables.
        i < s.Length;                   //Loop until the end of the input is reached.
        r += s[i++])                    //Add the current character to the result and increase the counter.
        for (                           //Loop for adding the TAPE.
            e = d = s[i] - s[i - 1];    //Calculate the differnce between the current and the previous character.
            d-- > 1;)                   //Loop until the difference is 1.
            r += "ETAP"[(e - d) % 4];   //Add a character from the TAPE to the result.
    return r;                           //Return the result.
}

YaBasic , 119 байт

Анонимная функция, которая принимает входные данные в виде заглавной строки и выводит их в STDOUT.

Input""s$
a=90
For i=1To Len(s$)
c$=Mid$(s$,i,1)
b=Asc(c$)
For j=2To b-a
?Mid$("peta",Mod(j,4)+1,1);
Next
?c$;
a=b
Next

Попробуйте онлайн!

Python 3, 90 байт

p,o=' ',''
for t in input():y=(ord(t)-ord(p)-1)*(p!=' ');o+=('TAPE'*y)[0:y]+t;p=t
print(o)

Попробуйте онлайн

Clojure, 139 119 байт

#(reduce-kv(fn[r x c](let[a(cycle "TAPE")i int d(-(i(nth(cycle %)(inc x)))(i c))](str r(if(> d 1)(apply str c(take(dec d)a))c))))""(vec %))

Анонимная функция, которая принимает строку и возвращает записанную на пленку. Как всегда, Clojure, похоже, не слишком хорошо работает. То, что я действительно не мог понять, является получение следующего символа в коротком пути. На последнем символе я бы получил OutOfBoundsException, причина очевидна. Так что я положил cycleвокруг него. Может быть, есть более элегантное решение.

Ungolfed

#(reduce-kv
  (fn [r x c]
    (let [a (cycle "TAPE")
          i int
          d (-
             (i (nth (cycle %) (inc x)))
             (i c))]
      (str r
           (if (> d 1)
             (apply str c (take (dec d) a))
             c))))
  ""
  (vec %))

Обновить

Удалось отбросить несколько байтов. Избавился от надоедливого ifутверждения, уменьшив разницу. takeсоздает пустой список, если число равно 0 или меньше, что в свою очередь приводит к пустой строке.

#(reduce-kv(fn[r x c](let[d(-(int(nth(cycle %)(inc x)))(int c)1)](str r c(apply str(take d(cycle "TAPE"))))))""(vec %))

Ungolfed

#(reduce-kv
  (fn [r x c]
    (let [d (-
             (int (nth (cycle %) (inc x)))
             (int c)
             1)]
      (str
       r
       c
       (apply
        str
        (take
         d
         (cycle "TAPE"))))))
  ""
  (vec %))

APL (Дьялог Классик) , 30 байтов

{∊⍵,¨⍨⍴∘'TAPE'¨0,0⌈-1+2-/⎕a⍳⍵}

Попробуйте онлайн!

{ } анонимная функция с аргументом ⍵

⎕a⍳⍵ найти индексы своих символов в алфавите

2-/ парные различия (предыдущий минус следующий)

1+ добавить 1

- NEGATE

0⌈ max (0, ...)

0, добавить 0

⍴∘'TAPE'¨ изменить форму циклически 'TAPE' к каждому

⍵,¨⍨ добавить каждый символ из аргумента к соответствующей измененной строке

∊ расплющить

CJam , 27 25 байтов

q_:i2ew.{:-~0e>_"TAPE"*<}

Попробуйте онлайн!

Далеко, далеко от других языков игры в гольф, но я все равно горжусь этим гольфом.

объяснение

q                            Read the input
     ew                      And take windows of size
    2                          2
   i                           from the code points
  :                            of each of its characters.
        {               }    For each of these windows:
         :                     Reduce with
          -                      subtraction.
                                 Since there are only 2 elements, this just subtracts them.
             e>                Take the maximum
           ~                     of this difference's bitwise negation
            0                    and zero.
                                 This returns -n-1 if n is negative, and 0 otherwise.
                                 Call this new value m.
                      *        Repeat
                "TAPE"           the string "TAPE" m times.
               _       <       And then take the first m elements.
                             The result of this will be an array of strings which consist of
                             the string "TAPE" repeated the proper amount of times.
       .                     Zip this array with the original input.
                             Since the original input is one element longer than this array,
                             the nothing is pushed after the final character.
                             Implicitly print everything.

Шелуха , 26 25 байт

ΣSoż+C1(moo↑¢¨tȦ9¨>0←Ẋ-mc

Попробуйте онлайн!

PowerShell , 72 байта

-join($args|% t*y|%{for(;$p*(++$p-lt$_)){'TAPE'[$i++%4]}$i=0;$p=+$_;$_})

Попробуйте онлайн!

Java, 213 166 153 байта

i->{String o="";for(int a=0,l=i.length;++a<=l;){char u=i[a-1],n;o+=u;if(a<l){n=i[a];o+="TAPETAPETAPETAPETAPETAPET".substring(0,n-u>0?n+~u:0);}}return o;}

попробуйте это онлайн

    String o = "";
    for (int a = 0, l = i.length; ++a <= l; ) {              // for each character
        char u = i[a - 1];                                    //  current character
        o += u;                                               //  add current character to output string 
        if (a < l) {                                          //  if it's not the last one
            char n = i[a];                                    //  next character
            o += "TAPETAPETAPETAPETAPETAPET".substring(0, n - u > 0 ? n +~ u : 0); // fill with enough tape but only forward
        }
    }
    return o;

Пожалуйста, помогите мне сделать это лучше.

Спасибо @cairdcoinheringaahing за отзыв о пробелах. Спасибо @RM за подсказку о ленте. Спасибо @KevinCruijssen за советы по лямбде и выражениям.