Виклик:

Подаючи рядок, що містить лише великі та / або малі літери (що б ви не 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 '"¡ʂƁ» ṁ $ € ż @ - Повна програма. Візьміть рядок як аргумент командного рядка.
O - ординальні. Отримайте значення ASCII кожного символу.
 Я '- Отримайте прирости (дельти) і відніміть 1 з кожного.
          € - За кожну різницю я ...
   „¡ꟅƁ» ṁ $ - Сформуйте стиснуту стрічку "стрічку" відповідно до цих значень.
                В основному подовжує / вкорочує "стрічку" до необхідної довжини.
           ż @ - Перемежуйте вхід.

Хаскелл , 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 байт завдяки Асоне Тухід

Scala , 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))

Розкручений

z = a => [... a]. зменшення (
  (х, у) =>
    x + [... масив (
      (f = y.charCodeAt () - (x.slice (-1) .charCodeAt ()))> 1? (f-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 за вказівку на це) і застосуємо операцію зменшення, де ми виправдовуємо кожну таблицю на необхідну довжину, використовуючи "TAPE" як рядок заповнення.

K (oK) , 33 байти

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

Спробуйте в Інтернеті!

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

-':x віднімайте кожен попередній (використовуйте уявний 0 перед першим пунктом)

1_ відкиньте перший предмет

0, додайте 0

-1+ додати -1

0| макс (0, ...)

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

(... ),'xдодайте відповідний символ xдо кожного перетвореного рядка

,/ об'єднати всіх

Рубі , 78 77 64 62 байт

-1 байт завдяки Kevin Cruijssen

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 байти завдяки слюсарі , оновлення до Java 10+ та переключення типів наvar
• -3 байти завдяки Kevin Cruijssen , надрукувавши результат моєї (раніше) альтернативної версії замість того, щоб повернути її

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

Ябасич , 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навколо. Можливо, є більш елегантне рішення.

Безумовно

#(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 %))

Безумовно

#(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 (Dyalog Classic) , 30 байт

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

Спробуйте в Інтернеті!

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

⎕a⍳⍵ знайти в алфавіті показники його знаків

2-/ парні різниці (попередній мінус наступний)

1+ додати 1

- заперечувати

0⌈ макс (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 за підказки лямбда та виразів.