Nettes Verb dort, im Titel.

Schreiben Sie ein Programm, das eine Eingabezeichenfolge angibt, diese Zeichenfolge "elastifiziert" und das Ergebnis ausgibt. Das Elastifizieren eines Strings geschieht wie folgt:

Das erste Zeichen wird einmal angezeigt. Das zweite Zeichen wird zweimal angezeigt. Das dritte Zeichen wird dreimal angezeigt und so weiter.

Wie Sie sehen, hängt die Anzahl der Duplikationen eines bestimmten Zeichens vom Index des Zeichens ab, im Gegensatz zu den vorherigen Vorkommen in der Zeichenfolge.

Sie können nur druckbare ASCII-Zeichen erwarten. Basierend auf dem folgenden Link haben diese Zeichen Dezimalwerte 32-126.

Beispiele:

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (Beachten Sie, wie es 7 B gibt, da das erste B 3-mal und das zweite B 4-mal angezeigt wird, was insgesamt 7 B ergibt.)

A and B: A aaannnnddddd BBBBBBB

Kürzeste Bytes gewinnt :)

Gelee , 3 Bytes

Code:

ĖP€

Erläuterung:

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

Verwendet die Jelly-Codierung . Probieren Sie es online! .

J, 4 Bytes

#~#\

Verwendung

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

Erläuterung

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

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

Ziemlich unkomplizierte Implementierung, bei der der Speicherplatz für jedes Eingabezeichen um 1 verschoben wird. Erfordert einen Interpreter, der bei EOF 0 und bei Eingaben mit mehr als 255 Zeichen Zellen mit 32 Bit / willkürlicher Genauigkeit liefert.

Probieren Sie es online! (Hinweis: TIO verwendet 8-Bit-Zellen.)

Java, 158 121 Bytes

Dank Kevin Cruijssen konnten satte 37 Bytes gespart werden !

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

Als Bonus kann dieses Programm alle vorhandenen Unicode-Zeichen verarbeiten, einschließlich der Steuerzeichen ganz am Ende von Basic Multilingual Plane .

Perl, 16 Bytes

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

+1 Byte für das -pFlag.

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 Bytes

concat.zipWith replicate[1..]

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

replicate n cerstellt n Kopien von c und erstellt concataus allen Unterlisten eine einzige Liste.

CJam, 9 8 7 Bytes

Danke an jimmy23013 für das Speichern von 1 Byte.

Sl+eee~

Teste es hier.

Erläuterung

Mit dem LobbYBeispiel:

                                      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 Bytes

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

Teste es auf Ideone .

Javascript ES6, 39 Bytes

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

Gleiche Länge, aber mehr Spaß:

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

Snippet-Demo:

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)

{⍵/⍨⍳⍴⍵}

Dh:

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

Erläuterung:

• ⍴⍵: Länge des angegebenen Vektors
• ⍳: Zahlen 1..N
• ⍵/⍨: repliziere jedes Element in ⍵N-mal.

MATLAB, 45 Bytes

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

Erklärung: Der Schlüssel ist hankel, der eine Hankelmatrix eines gegebenen Vektors erzeugt. Aus dieser Matrix können wir einen Vektor von Indizes extrahieren, der definiert, welches Zeichen des Strings an welcher Position in der Ausgabe steht. ZB hankel(1:4)erzeugt folgende Matrix:

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

Aus dieser Matrix können wir den Vektor extrahieren 1,2,2,3,3,3,4,4,4,4,4. Mit diesem Vektor können wir das erste Zeichen der Zeichenkette einmal , das zweite zweimal usw. Ausgeben

NARS2000 , 6 Zeichen = 12 Byte

⍳∘⍴/⊙⊢

⍳∘⍴Die Aufzählung des Arguments ... (Indizes seiner Länge)
/⊙repliziert die Elemente des ...
⊢unveränderten Arguments

PowerShell v2 +, 36 Byte

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

Nimmt Eingaben auf $args[0], wandelt sie explizit in ein charArray um und sendet sie in eine Schleife |%{...}. Bei jeder Iteration nehmen wir den aktuellen Buchstaben / das aktuelle Zeichen "$_"und verwenden den *überladenen Operator, um die vorab inkrementierten $iZeiten der Zeichenfolge zu verketten . Das Ergebnis jeder Schleifeniteration wird in Parens eingekapselt, um ein Array zu bilden, und dann -joinzu einem String zusammengefasst. Diese Zeichenfolge verbleibt in der Pipeline und die Ausgabe ist implizit.

Beispiele

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 Bytes

:ImC,0:Ie,Cw\

Dies druckt das Ergebnis nach STDOUT.

Erläuterung

Dies ist ein gutes Beispiel für die Nutzung von Backtracking to 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 Bytes

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

Erstellt eine anonyme Funktion ans, die mit aufgerufen werden kannans('stringtoelacticize')

K / Kona , 14 Bytes

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

Verwendung:

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

Erläuterung:

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

Rufen Sie zB eine Benutzerfunktion in einer Tabelle auf.

= e (A1)

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

Es schneidet ab, wenn Sie ein paar Mal seine eigene Ausgabe einspeisen :-).

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

Beispiel läuft:

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

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

Netzhaut , 22 Bytes

Die Anzahl der Bytes setzt die Kodierung nach ISO 8859-1 voraus.

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

Probieren Sie es online!

Grundsätzlich fügen wir die richtige Anzahl von ·Platzhaltern zwischen die Zeichen ein (da diese erweiterten ASCII-Zeichen nicht in der Eingabe erscheinen können) und füllen sie dann in der zweiten Stufe mit dem benachbarten Zeichen auf.

R , 83 50 Bytes

-23 Dank an Giuseppe, obwohl er im Wesentlichen eine völlig neue Methode angewendet hat

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

Mein ursprünglicher Beitrag:

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

Probieren Sie es online!

Ich glaube, es gibt definitiv einen besseren Weg, dies zu tun, aber mit meinen neuen Kenntnissen einiger Funktionen in R ist dies mein Ansatz.

Eigentlich 7 Bytes

' +ñ♂πΣ

Probieren Sie es online!

Erläuterung:

' +ñ♂πΣ
' +      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 gespart dank @FryAmTheEggman.

s*VSl

Test Suite .

Python 3, 48 47 Bytes

Danke an mego für das Speichern eines Bytes mit dem -~iTrick.

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

Dies ist weitgehend selbsterklärend. Eine Sache für diejenigen, die sich mit Python nicht auskennen: Der *Operator ist überladen, um sich wie Perls xOperator zu verhalten, und wiederholt sein Zeichenfolgenargument so oft, wie es durch sein numerisches Argument angegeben ist. Z.B'foo' * 3 == 'foofoofoo'

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"

Probieren Sie es online

Erläuterung

    % 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

Probieren Sie es online!

TSQL, 97 Bytes

Golf gespielt:

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

Probieren Sie es online aus