Beau verbe là-bas, dans le titre.

Ecrivez un programme qui donne une chaîne d'entrée, "élastiquera" cette chaîne et affichera le résultat. L'élasticisation d'une chaîne se fait comme suit:

Le premier caractère est montré une fois. Le deuxième caractère est montré deux fois. Le troisième caractère est montré trois fois, et ainsi de suite.

Comme vous pouvez le constater, le nombre de duplications d'un caractère donné est lié à l'index du caractère par opposition à ses occurrences précédentes dans la chaîne.

Vous pouvez vous attendre à recevoir uniquement des caractères ASCII imprimables. Basé sur le lien suivant , ces caractères ont des valeurs décimales 32-126.

Exemples:

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (Notez comme il y a 7 b puisque le premier b est affiché 3 fois et le second b 4 fois, ce qui donne un total de 7 b).

A and B: A aaannnnddddd BBBBBBB

Les octets les plus courts gagnent :)

Gelée , 3 octets

Code:

ĖP€

Explication:

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

Utilise le codage Jelly . Essayez-le en ligne! .

J, 4 octets

#~#\

Usage

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

Explication

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

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

Une implémentation assez simple, en décalant l'espace mémoire de 1 pour chaque caractère en entrée. Requiert un interpréteur donnant 0 sur EOF et des cellules de précision 32 bits / arbitraires pour les entrées de plus de 255 caractères.

Essayez-le en ligne! (Remarque: TIO utilise des cellules de 8 bits)

Java, 158 121 octets

J'ai sauvé 37 octets grâce à 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);}}

En prime, ce programme peut gérer tous les caractères Unicode de l’existence, y compris les caractères de contrôle situés tout à la fin du plan multilingue de base .

Perl, 16 octets

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

+1 octet pour le -pdrapeau.

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 octets

concat.zipWith replicate[1..]

Exemple d'utilisation: concat.zipWith replicate[1..] $ "SKype"->"SKKyyyppppeeeee" .

replicate n ccrée n copies de c et concatcrée une liste unique de toutes les sous-listes.

CJam, 9 8 7 octets

Merci à jimmy23013 pour avoir économisé 1 octet.

Sl+eee~

Testez-le ici.

Explication

En utilisant l' LobbYexemple:

                                      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 octets

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

Testez-le sur Ideone .

Javascript ES6, 39 octets

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

Même longueur, mais plus amusant:

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

Snippet démo:

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)

{⍵/⍨⍳⍴⍵}

C'est à dire:

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

Explication:

• ⍴⍵: longueur du vecteur donné
• ⍳: numéros 1..N
• ⍵/⍨: réplique chaque élément en ⍵N fois.

MATLAB, 45 octets

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

Explication: La clé est hankel, qui produit une matrice de Hankel d'un vecteur donné. De cette matrice, nous pouvons extraire un vecteur d’index, qui définit quel caractère de la chaîne se trouve à quelle position dans la sortie. Par exemple, hankel(1:4)produit la matrice suivante:

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

De cette matrice, nous pouvons extraire le vecteur 1,2,2,3,3,3,4,4,4,4,4. Ce vecteur nous permet de sortir le premier caractère de la chaîne une fois , le deuxième deux fois, etc.

NARS2000 , 6 caractères = 12 octets

⍳∘⍴/⊙⊢

⍳∘⍴l'énumération de l'argument ... (indices de sa longueur)
/⊙reproduit les éléments de ...
⊢l'argument non modifié

PowerShell v2 +, 36 octets

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

Prend input $args[0], le convertit explicitement en chartableau, l’envoie dans une boucle |%{...}. À chaque itération, nous prenons la lettre / le caractère actuel "$_"et utilisons l' *opérateur surchargé pour concaténer les temps pré-incrémentés de chaîne $i. Le résultat de chaque itération de boucle est encapsulé dans des parenthèses pour former un tableau, puis -joinédité ensemble pour former une chaîne. Cette chaîne est laissée sur le pipeline et la sortie est implicite.

Exemples

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\

This prints the result to STDOUT.

Explanation

This is a good example of exploiting 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))

Creates an anonymous function ans that can be called using ans('stringtoelacticize')

K/Kona, 14 bytes

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

Usage:

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