Bel verbo lì, nel titolo.

Scrivi un programma che ha dato una stringa di input, "elasticizzerà" questa stringa e produrrà il risultato. L'elasticizzazione di una stringa viene eseguita come segue:

Il primo carattere viene mostrato una volta. Il secondo carattere viene mostrato due volte. Il terzo personaggio viene mostrato tre volte e così via.

Come puoi vedere, la quantità di duplicazioni di un certo personaggio è correlata all'indice del personaggio rispetto alle sue ricorrenze precedenti nella stringa.

Puoi aspettarti di ricevere solo caratteri ASCII stampabili. Sulla base del seguente link , questi caratteri hanno valori decimali 32-126.

Esempi:

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (Nota come ci sono 7 b poiché la prima b viene mostrata 3 volte e la seconda b viene mostrata 4 volte, per un totale di 7 b).

A and B: A aaannnnddddd BBBBBBB

Vince il byte più corto :)

Gelatina , 3 byte

Codice:

ĖP€

Spiegazione:

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

Utilizza la codifica Jelly . Provalo online! .

J, 4 byte

#~#\

uso

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

Spiegazione

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

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

Implementazione piuttosto semplice, spostando lo spazio di memoria di 1 per ogni carattere di input. Richiede un interprete che fornisce 0 su EOF e celle di precisione arbitraria a 32 bit per input superiori a 255 caratteri.

Provalo online! (Nota: TIO utilizza celle a 8 bit)

Java, 158 121 byte

Risparmiato ben 37 byte grazie a 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);}}

Come bonus, questo programma può gestire tutti i caratteri Unicode esistenti, inclusi i caratteri di controllo situati all'estremità del piano multilingue di base .

Perl, 16 byte

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

+1 byte per la -pbandiera.

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..]

Esempio di utilizzo: concat.zipWith replicate[1..] $ "SKype"-> "SKKyyyppppeeeee".

replicate n ccrea n copie di c e concatcrea un unico elenco da tutte le liste secondarie.

CJam, 9 8 7 byte

Grazie a jimmy23013 per aver salvato 1 byte.

Sl+eee~

Provalo qui.

Spiegazione

Utilizzando l' LobbYesempio:

                                      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)

Provalo su Ideone .

Javascript ES6, 39 byte

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

Stessa lunghezza, ma più divertente:

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

Demo dello snippet:

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)

{⍵/⍨⍳⍴⍵}

Vale a dire:

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

Spiegazione:

• ⍴⍵: lunghezza del vettore dato
• ⍳: numeri 1..N
• ⍵/⍨: replica ogni elemento in ⍵N volte.

MATLAB, 45 byte

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

Spiegazione: La chiave è hankel, che produce una matrice di Hankel di un dato vettore. Da questa matrice, possiamo estrarre un vettore di indici, che definisce quale carattere della stringa si trova in quale posizione nell'output. Ad esempio hankel(1:4)produce la seguente matrice:

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

Da questa matrice possiamo estrarre il vettore 1,2,2,3,3,3,4,4,4,4,4. Questo vettore ci consente di emettere il primo carattere della stringa una volta , il secondo due volte ecc

NARS2000 , 6 caratteri = 12 byte

⍳∘⍴/⊙⊢

⍳∘⍴l'enumerazione dell'argomento ... (indici della sua lunghezza)
/⊙replica gli elementi
⊢dell'argomento non modificato

PowerShell v2 +, 36 byte

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

Prende input $args[0], lo lancia esplicitamente come un chararray, lo invia in un ciclo |%{...}. Ogni iterazione prendiamo la lettera / carattere corrente "$_"e usiamo l' *operatore sovraccaricato per concatenare i $itempi pre-incrementati della stringa . Il risultato di ogni iterazione del ciclo è incapsulato in parentesi per formare un array e quindi -joineditato insieme per formare una stringa. Quella stringa viene lasciata sulla pipeline e l'output è implicito.

Esempi

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\

Questo stampa il risultato su STDOUT.

Spiegazione

Questo è un buon esempio di sfruttamento del backtracking per eseguire il 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))

Crea una funzione anonima ansche può essere chiamata utilizzandoans('stringtoelacticize')

K / Kona , 14 byte

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

Uso:

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..*}

Spiegazione:

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

Chiama ad esempio una funzione utente in un foglio di calcolo.

= E (A1)

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

Si tronca se lo si alimenta il proprio output alcune volte :-).

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``

Esempi di esecuzione:

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

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

Retina , 22 byte

Il conteggio dei byte presuppone la codifica ISO 8859-1.

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

Provalo online!

Fondamentalmente, inseriamo la giusta quantità di ·segnaposto tra i caratteri (poiché questi caratteri ASCII estesi non possono apparire nell'input), quindi li riempiamo con il carattere adiacente nel secondo stadio.

R , 83 50 byte

-23 Grazie a Giuseppe, sebbene abbia usato sostanzialmente un metodo completamente nuovo

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

Il mio post originale:

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

Provalo online!

Sento che c'è sicuramente un modo migliore per farlo, ma con la mia nuova conoscenza di alcune funzioni in R, questo è il mio approccio.

In realtà, 7 byte

' +ñ♂πΣ

Provalo online!

Spiegazione:

' +ñ♂πΣ
' +      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 salvato grazie a @FryAmTheEggman.

s*VSl

Test Suite .

Python 3, 48 47 byte

Grazie a mego per aver salvato un byte con il -~itrucco.

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

Questo è per lo più autoesplicativo. Una cosa per coloro che non sono esperti di Python: l' *operatore è sovraccarico di agire come l' xoperatore di Perl , ripetendo il suo argomento stringa il numero di volte specificato dal suo argomento numerico. Per esempio'foo' * 3 == 'foofoofoo'

C #, 81 byte

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"

Provalo online

Spiegazione

    % 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

Provalo online!

TSQL, 97 byte

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

Provalo online