ท้าทาย:

กำหนดสตริงที่มีตัวอักษรตัวพิมพ์ใหญ่และ / เล็ก (แล้วแต่จำนวนใดก็ได้ที่คุณต้องการ) วาง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 ของตัวละครแต่ละตัว
 I '- รับส่วนเพิ่ม (เดลตา) และลบ 1 จากแต่ละอัน
          € - สำหรับความแตกต่างฉัน ...
   “ ¡ʂƁ»ṁ $ - ปั้นสตริง "เทป" ที่บีบอัดตามค่าเหล่านี้
                โดยทั่วไปจะขยาย / ย่น "เทป" ให้ยาวเท่าที่จำเป็น
           ż @ - แทรกสอดด้วยอินพุต

Haskell , 58 ไบต์

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

ลองออนไลน์! ฟังก์ชั่นfrecurses มากกว่าสตริงและรูปลักษณ์ที่ตัวละครต่อเนื่องและx อัตราผลตอบแทนสตริงไม่มีที่สิ้นสุด รับช่วงของอักขระจากถึงรวมดังนั้นเราต้องลบสองตัวจากความยาว ในกรณีที่เกิดขึ้นในภายหลังในตัวอักษรแล้วหรือทั้งสองเป็นตัวละครเดียวกันเราได้รับจำนวนลบหลังจากการลบ แต่โชคดีที่ยอมรับเหล่านั้นเช่นกันและไม่ต้องทำอะไรเลยycycle"TAPE""TAPETAPETAPE..."[x..y]xyxytake

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 ไบต์ขอบคุณ Asone Tuhid

สกาลา 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 Bytes

4 ไบต์บันทึกไว้ขอบคุณRick Hitchcock

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 => [ ... เป็น] .reduce (
  (x, y) =>
    x + [... อาร์เรย์ (
      (f = y.charCodeAt () - (x.slice (-1) .charCodeAt ()))> 1? (f-1): 0
    )].ลด(
      (E, R, t) => 
        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

Pip , 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'));

K4 , 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"

คำอธิบาย:

วิธีการแก้ปัญหาที่ค่อนข้างง่าย แต่มีจำนวนไบต์สูง ... ค้นหา deltas นำมาจากสตริง"TAPE"เข้าร่วมกับการตัดสตริงต้นฉบับโดยที่ delta เป็น> 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

Ruby , 59 53 ไบต์

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

ลองออนไลน์!

นี่เป็นเรื่องที่ค่อนข้างตรงไปตรงมา - เรารับข้อมูลโดยแบ่งสตริงของเราออก เป็นอาร์เรย์ของตัวอักษร (ขอบคุณ Asone Tuhid สำหรับการชี้ให้เห็น) และใช้การดำเนินการลดลง

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 ไบต์ขอบคุณที่ปรับระดับเป็นcatcatโดยอัพเกรดเป็น 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.
}

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

Husk , 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 bytes

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 สำหรับคำแนะนำแลมบ์ดาและการแสดงออก