คำกริยาที่ดีในชื่อ

เขียนโปรแกรมที่ได้รับสายป้อนข้อมูลจะ "ยืดหยุ่น" สายนี้และส่งออกผลลัพธ์ การทำให้สตริงยืดหยุ่นนั้นทำได้ดังนี้:

อักขระตัวแรกจะปรากฏขึ้นหนึ่งครั้ง อักขระตัวที่สองแสดงขึ้นสองครั้ง อักขระที่สามแสดงขึ้นสามครั้งและต่อไปเรื่อย ๆ

อย่างที่คุณเห็นจำนวนการทำซ้ำของตัวละครบางตัวนั้นเกี่ยวข้องกับดัชนีของตัวละครซึ่งตรงข้ามกับที่เกิดขึ้นก่อนหน้าในสตริง

คุณสามารถคาดหวังว่าจะได้รับเฉพาะอักขระ ASCII ที่พิมพ์ได้ จากลิงค์ต่อไปนี้อักขระเหล่านี้มีค่าทศนิยม 32-126

ตัวอย่าง:

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (โปรดสังเกตว่ามี 7 b อย่างไรตั้งแต่ b แรกแสดง 3 ครั้งและ b ที่สองแสดง 4 ครั้งทำให้รวม 7 b)

A and B: A aaannnnddddd BBBBBBB

ไบต์ที่สั้นที่สุดชนะ :)

เยลลี่ 3 ไบต์

รหัส:

ĖP€

คำอธิบาย:

Ė     # Enumerate.
 P€   # Product of each.
      # Implicit joining of everything.

ใช้การเข้ารหัสวุ้น ลองออนไลน์! .

J, 4 ไบต์

#~#\

การใช้

   f =: #~#\
   f 'Why'
Whhyyy
   f 'SKype'
SKKyyyppppeeeee
   f 'LobbY'
LoobbbbbbbYYYYY
   f 'A and B'
A  aaannnnddddd      BBBBBBB

คำอธิบาย

#~#\  Input: s
  #\  Computes the length of each prefix of s
      This forms the range [1, 2, ..., len(s)]
#~    For each value in the range, copy the character at the
      corresponding index that many times
      Return the created string

Brainfuck, 15 ไบต์

,[>+[->+<<.>],]

การปรับใช้หน่วยความจำแบบตรงไปตรงมาคือการขยับพื้นที่หน่วยความจำ 1 สำหรับแต่ละอักขระอินพุต ต้องใช้ล่ามที่ให้ 0 ใน EOF และเซลล์ความแม่นยำ 32 บิต / โดยพลการสำหรับอินพุตนานกว่า 255 ตัวอักษร

ลองออนไลน์! (หมายเหตุ: TIO ใช้เซลล์ 8 บิต)

Java, 158 121 ไบต์

ที่บันทึกไว้มหันต์ 37 ไบต์ต้องขอบคุณเควิน Cruijssen !

interface a{static void main(String[]A){int b=0,B;for(char c:A[0].toCharArray())for(B=b+++2;--B>0;)System.out.print(c);}}

เป็นโบนัส, โปรแกรมนี้สามารถจัดการกับทุกตัวอักษร Unicode ในการดำรงอยู่รวมทั้งตัวควบคุมอยู่ที่ปลายสุดของเครื่องบินได้หลายภาษาพื้นฐาน

Perl, 16 ไบต์

s/./$&x$+[0]/ge

+1 ไบต์สำหรับ-pแฟล็ก

s/./        /    find every character
             g   globally
              e  and replace with the eval'd result of
    $&           the matched string
      x          repeated
       $+[0]     by the index of the character after the match

Haskell, 29 ไบต์

concat.zipWith replicate[1..]

ตัวอย่างการใช้งาน: ->concat.zipWith replicate[1..] $ "SKype""SKKyyyppppeeeee"

replicate n cสร้างสำเนา n ของ c และconcatสร้างรายการเดียวจากรายการย่อยทั้งหมด

CJam, 9 8 7 ไบต์

ขอบคุณ jimmy23013 สำหรับการบันทึก 1 ไบต์

Sl+eee~

ทดสอบที่นี่

คำอธิบาย

ใช้LobbYตัวอย่าง:

                                      Stack:
S    e# Push space.                   [" "]
l    e# Read input.                   [" " "LobbY"]
+    e# Append.                       [" LobbY"]
ee   e# Enumerate.                    [[[0 ' ] [1 'L] [2 'o] [3 'b] [4 'b] [5 'Y]]]
e~   e# Run-length decode.            ["LoobbbbbbbYYYYY"]

Python ขนาด 39 ไบต์

f=lambda s:s and f(s[:-1])+s[-1]*len(s)

ทดสอบบนIdeone

Javascript ES6, 39 ไบต์

x=>x.replace(/./g,(y,i)=>y+y.repeat(i))

ความยาวเท่ากัน แต่สนุกกว่า:

x=>x.replace(i=/./g,y=>y.repeat(i=-~i))

ตัวอย่างข้อมูลตัวอย่าง:

f= x=>x.replace(/./g,(y,i)=>y+y.repeat(i))
run.onclick=_=>output.textContent=f(input.value)

<input id="input" value="SKype">
<button id="run">Go</button>
<pre id="output"></pre>

APL (8)

{⍵/⍨⍳⍴⍵}

เช่น:

      {⍵/⍨⍳⍴⍵} ¨  'Why' 'SKype' 'LobbY'
┌──────┬───────────────┬───────────────┐
│Whhyyy│SKKyyyppppeeeee│LoobbbbbbbYYYYY│
└──────┴───────────────┴───────────────┘

คำอธิบาย:

• ⍴⍵: ความยาวของเวกเตอร์ที่กำหนด
• ⍳: ตัวเลข 1..N
• ⍵/⍨: ทำซ้ำแต่ละองค์ประกอบใน⍵N ครั้ง

MATLAB, 45 ไบต์

g=@(m)sort(m(m>0));@(s)s(g(hankel(1:nnz(s))))

คำอธิบาย: กุญแจคือhankelซึ่งผลิตเมทริกซ์ Hankel ของเวกเตอร์ที่กำหนด จากเมทริกซ์นี้เราสามารถแยกเวกเตอร์ของดัชนีซึ่งกำหนดลักษณะของสตริงที่ตำแหน่งในเอาต์พุต เช่นhankel(1:4)สร้างเมทริกซ์ต่อไปนี้:

 1  2  3  4
 2  3  4  0
 3  4  0  0
 4  0  0  0

จากเมทริกซ์นี้เราสามารถลบเวกเตอร์1,2,2,3,3,3,4,4,4,4,4ได้ เวกเตอร์นี้อนุญาตให้เราแสดงผลอักขระตัวแรกของสตริงหนึ่งครั้งตัวที่สองสองครั้งฯลฯ

NARS2000 , 6 ตัวอักษร = 12 ไบต์

⍳∘⍴/⊙⊢

⍳∘⍴การแจงนับของอาร์กิวเมนต์ ... (ดัชนีของความยาว) จะ
/⊙ทำซ้ำองค์ประกอบของ ...
⊢อาร์กิวเมนต์ที่ไม่ได้แก้ไข

PowerShell v2 +, 36 ไบต์

-join([char[]]$args[0]|%{"$_"*++$i})

จะเข้า$args[0]อย่างชัดเจนดุจเป็นอาร์เรย์ส่งที่เป็นห่วงchar |%{...}การวนซ้ำแต่ละครั้งเราใช้ตัวอักษร / อักขระปัจจุบัน"$_"และใช้*โอเปอเรเตอร์ที่โอเวอร์โหลดเพื่อต่อสตริง$iเวลาที่เพิ่มขึ้นล่วงหน้า ผลลัพธ์ของการวนซ้ำแต่ละครั้งจะถูกห่อหุ้มด้วย parens เพื่อสร้างอาร์เรย์และจากนั้น-joinรวมเข้าด้วยกันเพื่อสร้างสตริง สตริงนั้นจะถูกทิ้งไว้บนไปป์ไลน์และเอาท์พุทก็เป็นนัย

ตัวอย่าง

PS C:\Tools\Scripts\golfing> .\elasticize-a-word.ps1 Why
Whhyyy

PS C:\Tools\Scripts\golfing> .\elasticize-a-word.ps1 SKype
SKKyyyppppeeeee

PS C:\Tools\Scripts\golfing> .\elasticize-a-word.ps1 LobbY
LoobbbbbbbYYYYY

PS C:\Tools\Scripts\golfing> .\elasticize-a-word.ps1 'a b'
a  bbb

Brachylogขนาด 13 ไบต์

:ImC,0:Ie,Cw\

สิ่งนี้จะพิมพ์ผลลัพธ์ไปที่ STDOUTนี้จะพิมพ์ผลให้

คำอธิบาย

นี่เป็นตัวอย่างที่ดีของการใช้ประโยชน์ย้อนรอยไปวนซ้ำ

:ImC            C is the Ith character of the Input
    ,
     0:Ie       Unify an implicit variable with an integer between 0 and I
         ,
          Cw    Write C to STDOUT
            \   False, trigger backtracking. It will go back to 0:Ie and unify the implicit
                variable with another integer, until all integers were used. After that, it
                will backtrack to :ImC and unify I and C with the next character.

MATLAB, 23 ไบต์

@(x)repelem(x,1:nnz(x))

สร้างฟังก์ชั่นที่ไม่ระบุชื่อansที่สามารถเรียกได้ว่าใช้งานans('stringtoelacticize')

K / Kona , 14 ไบต์

{,/(1+!#x)#'x}

การใช้งาน:

k){,/(1+!#x)#'x}"A and B"
"A  aaannnnddddd      BBBBBBB"

Perl 6 ,  22 20  19 ไบต์

{S:g/(.)/{$0 x$/.to}/}
{S:g[(.)]=$0 x$/.to}
{[~] .comb Zx 1..*}

คำอธิบาย:

{          # implicit parameter $_
  [~]      # string concatenate the following list
    .comb  # the NFG characters from $_
    Z[x]   # zip combined using the string repetition operator
    1 .. * # 1 to infinity
}

VBA, 75 ไบต์

Function e(s):For a=1 To Len(s):e=e &String(a,Mid(s,a,1)):Next:End Function

Call as e.g. a user function in a spreadsheet.

=e(A1)

┌─────────┬───────────────┐
│   SKype │SKKyyyppppeeeee│
└─────────┴───────────────┘

It truncates if you feed it its own output a few times :-).

PHP, 68 bytes

<?php foreach(str_split($argv[1])as$i=>$a)echo str_repeat($a,$i+1);

Javascript ES6, 42 41 bytes

s=>[,...s].map((e,i)=>e.repeat(i)).join``

Example runs:

f=s=>[,...s].map((e,i)=>e.repeat(i)).join``

f("Why")   => "Whhyyy"
f("SKype") => "SKKyyyppppeeeee"
f("LobbY") => "LoobbbbbbbYYYYY"

Retina, 22 bytes

Byte count assumes ISO 8859-1 encoding.

.
$&$.`$*·
+`(.)·
$1$1

Try it online!

Basically, we insert the right amount of · as placeholders between the characters (since these extended ASCII characters can't appear in the input), then fill them up with the adjacent character in the second stage.

R, 83 50 bytes

-23 Thanks to Giuseppe, though he used essentially an entire new method altogether

function(s)intToUtf8(rep(utf8ToInt(s),1:nchar(s)))

My original post:

function(s){r="";for(i in 1:nchar(s))r=paste0(r,strrep(el(strsplit(s,""))[i],i));r}

Try it online!

I feel like there's definitely a better way to do this, but with my new knowledge of a few functions in R, this is my approach.

Actually, 7 bytes

' +ñ♂πΣ

Try it online!

Explanation:

' +ñ♂πΣ
' +      prepend a space
   ñ     enumerate ("abc" -> [[0, 'a'], [1, 'b'], [2, 'c']])
    ♂π   map: for each character, repeat it n times
      Σ  concatenate

Pyth - 5 bytes

1 byte saved thanks to @FryAmTheEggman.

s*VSl

Test Suite.

Python 3, 48 47 bytes

Thanks to mego for saving a byte with the -~i trick.

lambda s:''.join(c*-~i for i,c in enumerate(s))

This is mostly self-explanatory. One thing for those not versed in Python: The * operator is overloaded to act like Perl's x operator, repeating its string argument the number of times specified by its numeric argument. E.g. 'foo' * 3 == 'foofoofoo'

C#, 81 Bytes

void f(string s){for(int i=0;i<s.Length;i++)Console.Write(new String(s[i],i+1));}

MATL, 5 bytes

tn:Y"

Try it Online

Explanation

    % Implictly grab input as a string
tn  % Duplicate and compute the length (N)
:   % Create an array from [1...N]
Y"  % Perform run-length decoding to elacticize the string
    % Implicitly display the result

Python, 40 bytes

f=lambda s,i=1:s and s[0]*i+f(s[1:],i+1)

Julia, 34 bytes

!s=s>""?!s[1:(e=end)-1]*s[e:e]^e:s

Try it online!

TSQL, 97 bytes

Golfed:

DECLARE @x varchar(max)='Lobby'
DECLARE @ int=LEN(@x)WHILE @>0SELECT
@x=STUFF(@x,@,1,REPLICATE(SUBSTRING(@x,@,1),@)),@-=1PRINT @x

Ungolfed:

DECLARE @x varchar(max)='Lobby'

DECLARE @ int=LEN(@x)
WHILE @>0
  SELECT 
    @x=STUFF(@x,@,1,REPLICATE(SUBSTRING(@x,@,1),@)),
    @-=1

PRINT @x

Try it online