Kata kerja yang bagus di sana, dalam judul.

Tulis sebuah program yang diberi string input, akan "melenturkan" string ini dan menampilkan hasilnya. Elastisisasi string dilakukan sebagai berikut:

Karakter pertama ditampilkan sekali. Karakter kedua ditampilkan dua kali. Karakter ketiga ditampilkan tiga kali, dan seterusnya.

Seperti yang Anda lihat, jumlah duplikasi karakter tertentu terkait dengan indeks karakter yang bertentangan dengan kemunculan sebelumnya dalam string.

Anda hanya dapat menerima karakter ASCII yang dapat dicetak. Berdasarkan tautan berikut , karakter-karakter ini memiliki nilai desimal 32-126.

Contoh:

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (Perhatikan bagaimana ada 7 b sejak b pertama ditampilkan 3 kali dan b kedua ditampilkan 4 kali, sehingga total 7 b).

A and B: A aaannnnddddd BBBBBBB

Bytes terpendek menang :)

Jelly , 3 byte

Kode:

ĖP€

Penjelasan:

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

Menggunakan pengodean Jelly . Cobalah online! .

J, 4 byte

#~#\

Pemakaian

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

Penjelasan

#~#\  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 byte

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

Implementasi yang cukup mudah, menggeser ruang memori sebesar 1 untuk setiap karakter input. Membutuhkan interpreter yang memberikan 0 pada EOF, dan sel presisi 32-bit / arbitrary untuk input yang lebih panjang dari 255 karakter.

Cobalah online! (Catatan: TIO menggunakan sel 8-bit)

Java, 158 121 byte

Menyimpan 37 byte kekalahan berkat Kevin 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);}}

Sebagai bonus, program ini dapat menangani semua karakter Unicode yang ada, termasuk karakter kontrol yang terletak di bagian paling bawah Basic Multilingual Plane .

Perl, 16 byte

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

+1 byte untuk -pbendera.

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 byte

concat.zipWith replicate[1..]

Contoh penggunaan: concat.zipWith replicate[1..] $ "SKype"-> "SKKyyyppppeeeee".

replicate n cmembuat n salinan c dan concatmembuat daftar tunggal dari semua sublists.

CJam, 9 8 7 byte

Terima kasih kepada jimmy23013 untuk menghemat 1 byte.

Sl+eee~

Uji di sini.

Penjelasan

Menggunakan LobbYcontoh:

                                      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 byte

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

Uji di Ideone .

Javascript ES6, 39 byte

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

Panjangnya sama, tetapi lebih menyenangkan:

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

Demo cuplikan:

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)

{⍵/⍨⍳⍴⍵}

Yaitu:

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

Penjelasan:

• ⍴⍵: panjang vektor yang diberikan
• ⍳: angka 1..N
• ⍵/⍨: mereplikasi setiap elemen dalam ⍵ N kali.

MATLAB, 45 byte

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

Penjelasan: Kuncinya adalah hankel, yang menghasilkan matriks Hankel dari vektor yang diberikan. Dari matriks ini, kita dapat mengekstraksi vektor indeks, yang menentukan karakter string mana yang berada di posisi mana dalam output. Misalnya hankel(1:4)menghasilkan matriks berikut:

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

Dari matriks ini kita dapat mengekstrak vektor 1,2,2,3,3,3,4,4,4,4,4. Vektor ini memungkinkan kita untuk mengeluarkan karakter pertama dari string sekali , yang kedua dua kali dll

NARS2000 , 6 karakter = 12 byte

⍳∘⍴/⊙⊢

⍳∘⍴enumerasi argumen ... (indeks panjangnya)
/⊙mereplikasi elemen ...
⊢argumen yang tidak dimodifikasi

PowerShell v2 +, 36 byte

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

Mengambil input $args[0], secara eksplisit melemparkannya sebagai chararray, mengirimkannya ke dalam satu lingkaran |%{...}. Setiap iterasi, kami mengambil huruf / karakter saat ini "$_"dan menggunakan *operator kelebihan beban untuk menggabungkan string pra-kenaikan $ikali. Hasil dari setiap iterasi loop diringkas dalam parens untuk membentuk array dan kemudian -joindiedit bersama untuk membentuk string. String itu ditinggalkan di pipeline dan outputnya implisit.

Contohnya

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 byte

:ImC,0:Ie,Cw\

Ini mencetak hasilnya ke STDOUT .

Penjelasan

Ini adalah contoh yang baik untuk mengeksploitasi backtracking ke loop.

: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 byte

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

Menciptakan fungsi anonim ansyang bisa disebut menggunakanans('stringtoelacticize')

K / Kona , 14 byte

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

Pemakaian:

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

Perl 6 ,  22 20  19 byte

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

Penjelasan:

{          # 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 byte

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

Sebut sebagai misalnya fungsi pengguna dalam spreadsheet.

= e (A1)

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

Ini terpotong jika Anda memberinya output sendiri beberapa kali :-).

PHP, 68 byte

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

Javascript ES6, 42 41 byte

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

Contoh berjalan:

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

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

Retina , 22 byte

Hitungan byte mengasumsikan penyandian ISO 8859-1.

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

Cobalah online!

Pada dasarnya, kami menyisipkan jumlah yang tepat ·sebagai placeholder di antara karakter (karena karakter ASCII yang diperluas ini tidak dapat muncul di input), lalu mengisinya dengan karakter yang berdekatan di tahap kedua.

R , 83 50 byte

-23 Terima kasih kepada Giuseppe, meskipun pada dasarnya dia menggunakan seluruh metode baru

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

Posting asli saya:

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

Cobalah online!

Saya merasa pasti ada cara yang lebih baik untuk melakukan ini, tetapi dengan pengetahuan baru saya tentang beberapa fungsi dalam R, ini adalah pendekatan saya.

Sebenarnya, 7 byte

' +ñ♂πΣ

Cobalah online!

Penjelasan:

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

Pyth - 5 byte

1 byte disimpan berkat @FryAmTheEggman.

s*VSl

Test Suite .

Python 3, 48 47 byte

Terima kasih kepada mego karena telah menghemat satu byte dengan -~itriknya.

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

Ini sebagian besar sudah jelas. Satu hal untuk mereka yang tidak berpengalaman dalam Python: *Operator kelebihan beban untuk bertindak seperti xoperator Perl , mengulangi argumen stringnya berapa kali ditentukan oleh argumen numeriknya. Misalnya'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 byte

tn:Y"

Cobalah secara Online

Penjelasan

    % 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 byte

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

Julia, 34 byte

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

Cobalah online!

TSQL, 97 byte

Golf:

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

Tidak Disatukan:

DECLARE @x varchar(max)='Lobby'

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

PRINT @x

Cobalah online