Niezły czasownik w tytule.

Napisz program, który poda łańcuch wejściowy, „uelastyczni” ten łańcuch i wyświetli wynik. Uelastycznienie sznurka odbywa się w następujący sposób:

Pierwszy znak jest wyświetlany raz. Drugi znak jest pokazywany dwukrotnie. Trzecia postać jest pokazana trzy razy i tak dalej.

Jak widać, ilość duplikatów określonego znaku jest powiązana z indeksem znaku, w przeciwieństwie do jego poprzednich wystąpień w ciągu.

Możesz oczekiwać, że otrzymasz tylko drukowalne znaki ASCII. Oparte na poniższym linku , znaki te mają wartości dziesiętne 32-126.

Przykłady:

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (Zauważ, że jest 7 b, ponieważ pierwszy b jest pokazany 3 razy, a drugi b jest pokazany 4 razy, co daje w sumie 7 b).

A and B: A aaannnnddddd BBBBBBB

Najkrótsze bajty wygrywają :)

Galaretka , 3 bajty

Kod:

ĖP€

Wyjaśnienie:

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

Wykorzystuje kodowanie Jelly . Wypróbuj online! .

J, 4 bajty

#~#\

Stosowanie

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

Wyjaśnienie

#~#\  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 bajtów

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

Dość prosta implementacja, przesuwająca przestrzeń pamięci o 1 dla każdego znaku wejściowego. Wymaga interpretera, który podaje 0 na EOF i 32-bitowe / arbitralne komórki precyzji dla danych wejściowych dłuższych niż 255 znaków.

Wypróbuj online! (Uwaga: TIO używa 8-bitowych komórek)

Java, 158 121 bajtów

Zaoszczędził aż 37 bajtów dzięki 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);}}

Jako bonus, ten program może obsłużyć wszystkie istniejące znaki Unicode, w tym znaki kontrolne znajdujące się na samym końcu Basic Multilingual Plane .

Perl, 16 bajtów

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

+1 bajt dla -pflagi.

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 bajtów

concat.zipWith replicate[1..]

Przykład użycia: concat.zipWith replicate[1..] $ "SKype"-> "SKKyyyppppeeeee".

replicate n ctworzy n kopii c i concattworzy jedną listę ze wszystkich list podrzędnych.

CJam, 9 8 7 bajtów

Dzięki jimmy23013 za oszczędność 1 bajtu.

Sl+eee~

Sprawdź to tutaj.

Wyjaśnienie

Korzystając z LobbYprzykładu:

                                      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 bajtów

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

Przetestuj na Ideone .

JavaScript ES6, 39 bajtów

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

Ta sama długość, ale więcej zabawy:

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

Wersja demonstracyjna fragmentu:

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)

{⍵/⍨⍳⍴⍵}

To znaczy:

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

Wyjaśnienie:

• ⍴⍵: długość danego wektora
• ⍳: liczby 1..N
• ⍵/⍨: replikuj każdy element ⍵N razy.

MATLAB, 45 bajtów

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

Objaśnienie: Kluczem jest hankelutworzenie macierzy Hankela danego wektora. Z tej macierzy możemy wyodrębnić wektor indeksów, który określa, który znak ciągu znajduje się w której pozycji na wyjściu. Np. hankel(1:4)Produkuje następującą macierz:

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

Z tej macierzy możemy wyciągnąć wektor 1,2,2,3,3,3,4,4,4,4,4. Ten wektor pozwala nam wypisać pierwszy znak ciągu raz , drugi dwa razy itd

NARS2000 , 6 znaków = 12 bajtów

⍳∘⍴/⊙⊢

⍳∘⍴wyliczenie argumentu ... (wskaźniki jego długości)
/⊙replikuje elementy ...
⊢niemodyfikowanego argumentu

PowerShell v2 +, 36 bajtów

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

Pobiera dane wejściowe $args[0], jawnie rzutuje je jako chartablicę, wysyła je do pętli |%{...}. Przy każdej iteracji bierzemy bieżącą literę / znak "$_"i używamy *przeciążonego operatora, aby połączyć ciąg znaków z przyrostem $iczasu. Wynik każdej iteracji pętli jest hermetyzowany w parens w celu utworzenia tablicy, a następnie -joinedytowany razem w celu utworzenia łańcucha. Ten ciąg jest pozostawiony w potoku, a dane wyjściowe są niejawne.

Przykłady

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 bajtów

:ImC,0:Ie,Cw\

Spowoduje to wydrukowanie wyniku do STDOUT.

Wyjaśnienie

To dobry przykład wykorzystania backtracku do zapętlenia.

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

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

Tworzy anonimową funkcję, ansktórą można wywołać za pomocąans('stringtoelacticize')

K / Kona , 14 bajtów

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

Stosowanie:

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

Perl 6 ,  22 20  19 bajtów

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

Wyjaśnienie:

{          # 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 bajtów

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

Wywołaj jako np. Funkcję użytkownika w arkuszu kalkulacyjnym.

= e (A1)

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

Obcina się, jeśli kilka razy podasz własny wynik :-).

PHP, 68 bajtów

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

JavaScript ES6, 42 41 bajtów

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

Przykładowe przebiegi:

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

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

Siatkówka , 22 bajty

Liczba bajtów zakłada kodowanie ISO 8859-1.

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

Wypróbuj online!

Zasadniczo wstawiamy odpowiednią liczbę ·znaków zastępczych między znakami (ponieważ te rozszerzone znaki ASCII nie mogą pojawić się na wejściu), a następnie wypełniamy je sąsiednim znakiem w drugim etapie.

R , 83 50 bajtów

-23 Dzięki Giuseppe, choć zastosował on zasadniczo zupełnie nową metodę

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

Mój oryginalny post:

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

Wypróbuj online!

Wydaje mi się, że jest zdecydowanie lepszy sposób, aby to zrobić, ale dzięki mojej nowej wiedzy o kilku funkcjach w języku R jest to moje podejście.

Właściwie 7 bajtów

' +ñ♂πΣ

Wypróbuj online!

Wyjaśnienie:

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

Pyth - 5 bajtów

1 bajt zapisany dzięki @FryAmTheEggman.

s*VSl

Pakiet testowy .

Python 3, 48 47 bajtów

Dzięki mego za uratowanie bajtu z -~ilewą.

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

Jest to w większości oczywiste. Jedna rzecz dla tych, którzy nie są zaznajomieni z Pythonem: *operator jest przeciążony, aby zachowywać się jak xoperator Perla , powtarzając swój ciąg znaków liczbę razy określoną przez argument liczbowy. Na przykład'foo' * 3 == 'foofoofoo'

C #, 81 bajtów

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

MATL, 5 bajtów

tn:Y"

Wypróbuj online

Wyjaśnienie

    % 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 bajtów

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

Julia, 34 bajty

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

Wypróbuj online!

TSQL, 97 bajtów

Gra w golfa:

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

Nie golfowany:

DECLARE @x varchar(max)='Lobby'

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

PRINT @x

Wypróbuj online