제목에 멋진 동사가 있습니다.

입력 문자열을 제공하는 프로그램을 작성하면이 문자열을 "탄력 화"하고 결과를 출력합니다. 문자열 탄력 화는 다음과 같이 수행됩니다.

첫 번째 문자가 한 번 표시됩니다. 두 번째 문자가 두 번 표시됩니다. 세 번째 문자는 세 번 표시됩니다.

보다시피, 특정 문자의 복제 량은 문자열에서 이전에 나타나는 것과 반대로 문자의 인덱스와 관련이 있습니다.

인쇄 가능한 ASCII 문자 만 수신 할 수 있습니다. 다음 링크 를 기준으로이 문자는 32-126의 10 진수 값을 갖습니다.

예 :

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (첫 번째 b가 3 번 표시되고 두 번째 b가 4 번 표시되어 총 7b가 생성되므로 7b가 어떻게 표시되는지 유의하십시오).

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 씩 이동합니다. EOF에 0을 제공하는 인터프리터와 255 자보다 긴 입력에 대해 32 비트 / 임의 정밀 셀이 필요합니다.

온라인으로 사용해보십시오! (참고 : TIO는 8 비트 셀을 사용합니다)

자바, 158 바이트

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의 맨 끝에 위치한 제어 문자를 포함 하여 존재하는 모든 유니 코드 문자를 처리 할 수 ​​있습니다 .

펄, 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

하스켈, 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"]

파이썬, 39 바이트

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

Ideone에서 테스트하십시오 .

자바 스크립트 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 bytes

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

Explanation:

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

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