Başlığında güzel fiil var.

Bir giriş dizesi verilen, bu dizeyi "esnekleştirecek" ve bir sonuç çıktısı alacak bir program yazın. Bir ipin elastikleştirilmesi şu şekilde yapılır:

İlk karakter bir kez gösterilir. İkinci karakter iki kez gösterilir. Üçüncü karakter, üç kez gösterilir, vb.

Gördüğünüz gibi, belirli bir karakterin kopyalarının sayısı, dizedeki önceki oluşumlarının tersine karakterin endeksi ile ilgilidir.

Yalnızca yazdırılabilir ASCII karakterleri almayı bekleyebilirsiniz. Aşağıdaki bağlantıya dayanarak , bu karakterlerin ondalık değerleri 32-126'dır.

Örnekler:

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (İlk b 3 kez gösterildiğinden ve ikinci b 4 kez gösterildiğinden, toplam 7 b olduğu için 7 b'nin nasıl olduğuna dikkat edin).

A and B: A aaannnnddddd BBBBBBB

En kısa bayt kazanır :)

Jöle , 3 bayt

Kod:

ĖP€

Açıklama:

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

Jelly kodlamasını kullanır . Çevrimiçi deneyin! .

J, 4 bayt

#~#\

kullanım

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

açıklama

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

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

Oldukça basit uygulama, her bir giriş karakteri için bellek alanını 1'e kaydırmak. EOF'de 0 veren bir tercüman ve 255 karakterden daha uzun girişler için 32 bit / isteğe bağlı hassas hücreler gerektirir.

Çevrimiçi deneyin! (Not: TIO, 8 bit hücreler kullanır)

Java, 158 121 bayt

Kevin Cruijssen sayesinde bir kuyruklu 37 byte kurtardı !

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

Bir bonus olarak, bu program , Temel Çok Dilli Düzlem'in en sonunda bulunan kontrol karakterleri de dahil olmak üzere , var olan tüm Unicode karakterleri kullanabilir .

Perl, 16 bayt

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

-pBayrak için +1 bayt .

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 bayt

concat.zipWith replicate[1..]

Kullanım örneği: concat.zipWith replicate[1..] $ "SKype"-> "SKKyyyppppeeeee".

replicate n cc nin n kopyasını concatçıkarır ve tüm alt listelerden tek bir liste çıkarır.

CJam, 9 8 7 bayt

1 byte tasarruf için jimmy23013'e teşekkürler.

Sl+eee~

Burada test et.

açıklama

LobbYÖrnek kullanarak :

                                      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 bayt

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

İdeone üzerinde test et .

Javascript ES6, 39 bayt

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

Aynı uzunluk, ancak daha eğlenceli:

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

Snippet demosu:

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)

{⍵/⍨⍳⍴⍵}

yani:

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

Açıklama:

• ⍴⍵: verilen vektörün uzunluğu
• ⍳: sayılar 1.N
• ⍵/⍨: her elemanı ⍵N kere kopyalar .

MATLAB, 45 bayt

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

Açıklama: Anahtar, hankelverilen bir vektörün Hankel matrisini üreten anahtardır . Bu matristen, dizgenin hangi karakterinin çıktıda hangi konumda olduğunu tanımlayan bir indeks vektörü çıkarabiliriz. Örneğin hankel(1:4)aşağıdaki matrisi üretir:

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

Bu matristen vektörü çıkarabiliriz 1,2,2,3,3,3,4,4,4,4,4. Bu vektör çıkışına dizenin birinci karakteri bizi tanır kez , ikincisini iki kez vb

NARS2000 , 6 karakter = 12 bayt

⍳∘⍴/⊙⊢

⍳∘⍴argümanın numaralandırılması ... (uzunluğunun indeksleri) değiştirilmemiş argümanın
/⊙unsurlarını çoğaltır
⊢

PowerShell v2 +, 36 bayt

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

Girdi alır $args[0], açıkça bir chardizi olarak yayınlar, onu bir döngüye gönderir |%{...}. Her yineleme, geçerli harfi / karakteri alır "$_"ve *önceden artan $izamanları dizgiyi birleştirmek için aşırı yüklenmiş operatörü kullanırız . Her döngü yinelemesinin sonucu, bir dizi oluşturmak için parenler içinde kapsüllenir ve daha sonra -joinbir dize oluşturmak için birlikte ed. Bu dize boru hattında bırakılır ve çıktı örtüktür.

Örnekler

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