タイトルにある素敵な動詞。

入力文字列を指定したプログラムを作成し、この文字列を「弾性化」して結果を出力します。文字列の伸縮は、次のように行われます。

最初の文字は一度表示されます。2番目の文字は2回表示されます。3番目の文字が3回表示されます。

ご覧のとおり、特定の文字の重複の量は、文字列での以前の出現とは対照的に、文字のインデックスに関連しています。

印刷可能なASCII文字のみを受け取ることができます。次のリンクに基づいて、これらの文字には10進数値32-126があります。

例：

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY （最初のbが3回表示され、2番目のbが4回表示され、合計7つのbになるため、7つのbがあることに注意してください）。

A and B: A aaannnnddddd BBBBBBB

最短バイトが勝ちます:)

ゼリー、3バイト

コード：

ĖP€

説明：

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

Jellyエンコーディングを使用します。オンラインでお試しください！。

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シフトする、非常に簡単な実装。EOFに0を与えるインタープリター、および255文字より長い入力には32ビット/任意の精度セルが必要です。

オンラインでお試しください！（注：TIOは8ビットセルを使用します）

Java、158 121バイト

Kevin Cruijssenのおかげで、なんと37バイトも節約できました！

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);}}

ボーナスとして、このプログラムは、Basic Multilingual Planeの最後にある制御文字を含む、存在するすべての Unicode文字を処理できます。

Perl、16バイト

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

-pフラグ用に+1バイト。

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 ccのn個のコピーをconcat作成し、すべてのサブリストから単一のリストを作成します。

CJam、9 8 7バイト

1バイトを節約してくれたjimmy23013に感謝します。

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(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ます。このベクターは、文字列の最初の文字が出力に私たちを可能に一度、二1 回など

NARS2000、6文字= 12バイト

⍳∘⍴/⊙⊢

⍳∘⍴引数の列挙...（その長さの指標）は、変更されていない引数の
/⊙要素を複製し
⊢ます。

PowerShell v2 +、36バイト

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

入力を受け取り$args[0]、明示的にchar配列としてキャストし、それをループに送ります|%{...}。各反復では、現在の文字/文字を取得し"$_"、*オーバーロードされた演算子を使用して、事前にインクリメントされた文字列を連結します$i。各ループ反復の結果は括弧でカプセル化されて配列を形成し、その後-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

たとえば、スプレッドシートのユーザー関数として呼び出します。

= e（A1）

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

独自の出力を数回フィードすると切り捨てられます:-)。

PHP、68バイト

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

JavascriptをES6、42の 41バイト

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

実行例：

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

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

網膜、22バイト

バイトカウントはISO 8859-1エンコードを前提としています。

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

オンラインでお試しください！

基本的に、·文字間にプレースホルダーとして適切な量​​を挿入し（これらの拡張ASCII文字は入力に表示されないため）、2番目の段階で隣接する文字で埋めます。

R、83 50バイト

-23ジュゼッペのおかげで、彼は本質的にまったく新しい方法を使用しましたが

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

私の元の投稿：

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

オンラインでお試しください！

間違いなくこれを行うためのより良い方法があるように感じますが、Rのいくつかの関数についての私の新しい知識により、これが私のアプローチです。

実際には、7バイト

' +ñ♂πΣ

オンラインでお試しください！

説明：

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

Pyth-5バイト

@FryAmTheEggmanのおかげで1バイト節約されました。

s*VSl

テストスイート。

Pythonの3、48の 47バイト

トリックでバイトを保存してくれたmegoに感謝し-~iます。

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

これはほとんど自明です。Pythonに精通していない人のための1つ：*演算子はx、Perlの演算子のように動作するようにオーバーロードされ、数値引数で指定された回数だけ文字列引数を繰り返します。例えば'foo' * 3 == 'foofoofoo'

C＃、81バイト

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

MATL、5バイト

tn:Y"

オンラインで試す

説明

    % 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バイト

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

ジュリア、34バイト

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

オンラインでお試しください！

TSQL、97バイト

ゴルフ：

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

ゴルフをしていない：

DECLARE @x varchar(max)='Lobby'

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

PRINT @x

オンラインで試す