Động từ đẹp ở đó, trong tiêu đề.

Viết chương trình đưa ra một chuỗi đầu vào, sẽ "co giãn" chuỗi này và đưa ra kết quả. Việc co giãn một chuỗi được thực hiện như sau:

Nhân vật đầu tiên được hiển thị một lần. Nhân vật thứ hai được hiển thị hai lần. Nhân vật thứ ba được hiển thị ba lần, và như vậy.

Như bạn có thể thấy, số lượng trùng lặp của một ký tự nhất định có liên quan đến chỉ mục của ký tự trái ngược với các lần xuất hiện trước đó trong chuỗi.

Bạn có thể mong đợi chỉ nhận được các ký tự ASCII có thể in được. Dựa trên liên kết sau , các ký tự này có giá trị thập phân 32-126.

Ví dụ:

Why: Whhyyy

SKype: SKKyyyppppeeeee

LobbY: LoobbbbbbbYYYYY (Lưu ý cách có 7 b 'kể từ b đầu tiên được hiển thị 3 lần và b thứ hai được hiển thị 4 lần, tổng cộng là 7 b').

A and B: A aaannnnddddd BBBBBBB

Các byte ngắn nhất sẽ thắng :)

Thạch , 3 byte

Mã số:

ĖP€

Giải trình:

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

Sử dụng mã hóa Jelly . Hãy thử trực tuyến! .

J, 4 byte

#~#\

Sử dụng

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

Giải trình

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

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

Việc thực hiện khá đơn giản, thay đổi không gian bộ nhớ bằng 1 cho mỗi char đầu vào. Yêu cầu trình thông dịch cung cấp 0 trên EOF và các ô chính xác 32 bit / tùy ý cho các đầu vào dài hơn 255 ký tự.

Hãy thử trực tuyến! (Lưu ý: TIO sử dụng các ô 8 bit)

Java, 158 121 byte

Đã tiết kiệm được 37 byte nhờ 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);}}

Như một phần thưởng, chương trình này có thể xử lý tất cả các ký tự Unicode trong sự tồn tại, bao gồm các ký tự điều khiển nằm ở cuối Mặt phẳng đa ngôn ngữ cơ bản .

Perl, 16 byte

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

+1 byte cho -pcờ.

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

Ví dụ sử dụng: concat.zipWith replicate[1..] $ "SKype"-> "SKKyyyppppeeeee".

replicate n ctạo n bản sao của c và concattạo một danh sách trong số tất cả các danh sách phụ.

CJam, 9 8 7 byte

Cảm ơn jimmy23013 vì đã tiết kiệm 1 byte.

Sl+eee~

Kiểm tra nó ở đây.

Giải trình

Sử dụng LobbYví dụ:

                                      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)

Kiểm tra nó trên Ideone .

Javascript ES6, 39 byte

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

Cùng chiều dài, nhưng thú vị hơn:

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

Đoạn giới thiệu đoạn trích:

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)

{⍵/⍨⍳⍴⍵}

I E:

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

Giải trình:

• ⍴⍵: chiều dài của vectơ đã cho
• ⍳: số 1..N
• ⍵/⍨: sao chép từng phần tử trong ⍵N lần.

MATLAB, 45 byte

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

Giải thích: Chìa khóa là hankel, tạo ra ma trận Hankel của một vectơ đã cho. Từ ma trận này, chúng ta có thể trích xuất một vectơ chỉ mục, xác định ký tự nào của chuỗi ở vị trí nào trong đầu ra. Ví dụ: hankel(1:4)tạo ra ma trận sau:

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

Từ ma trận này, chúng ta có thể ngoại trừ vectơ 1,2,2,3,3,3,4,4,4,4,4. Vectơ này cho phép chúng ta xuất ký tự đầu tiên của chuỗi một lần , ký tự thứ hai hai lần, v.v.

NARS2000 , 6 ký tự = 12 byte

⍳∘⍴/⊙⊢

⍳∘⍴liệt kê đối số ... (chỉ số độ dài của nó)
/⊙sao chép các phần tử của ...
⊢đối số chưa sửa đổi

PowerShell v2 +, 36 byte

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

Đưa đầu vào $args[0], rõ ràng biến nó thành một charmảng, gửi nó vào một vòng lặp |%{...}. Mỗi lần lặp chúng ta lấy chữ cái / ký tự hiện tại "$_"và sử dụng *toán tử quá tải để nối chuỗi $ilần tăng trước . Kết quả của mỗi lần lặp vòng lặp được gói gọn trong parens để tạo thành một mảng và sau đó -joined lại với nhau để tạo thành một chuỗi. Chuỗi đó được để lại trên đường ống và đầu ra là ẩn.

Ví dụ

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\

Điều này in kết quả đến STDOUT.

Giải trình

Đây là một ví dụ tốt về khai thác quay lui để lặp.

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

Tạo một hàm ẩn danh anscó thể được gọi bằng cách sử dụngans('stringtoelacticize')

K / Kona , 14 byte

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

Sử dụng:

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

Giải trình:

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

Gọi như một chức năng người dùng trong bảng tính.

= e (A1)

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

Nó cắt bớt nếu bạn cung cấp cho đầu ra của chính nó một vài lần :-).

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

Ví dụ chạy:

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

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

Võng mạc , 22 byte

Số lượng byte giả định mã hóa ISO 8859-1.

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

Hãy thử trực tuyến!

Về cơ bản, chúng tôi chèn đúng số lượng ·giữ chỗ giữa các ký tự (vì các ký tự ASCII mở rộng này không thể xuất hiện trong đầu vào), sau đó điền chúng với ký tự liền kề trong giai đoạn thứ hai.

R , 83 50 byte

-23 Cảm ơn Giuseppe, mặc dù về cơ bản anh ấy đã sử dụng toàn bộ một phương pháp mới

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

Bài viết gốc của tôi:

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

Hãy thử trực tuyến!

Tôi cảm thấy như chắc chắn có một cách tốt hơn để làm điều này, nhưng với kiến ​​thức mới của tôi về một vài chức năng trong R, đây là cách tiếp cận của tôi.

Trên thực tế, 7 byte

' +ñ♂πΣ

Hãy thử trực tuyến!

Giải trình:

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

Pyth - 5 byte

Lưu 1 byte nhờ @FryAmTheEggman.

s*VSl

Phòng thử nghiệm .

Python 3, 48 47 byte

Cảm ơn mego đã lưu một byte với -~ithủ thuật.

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

Điều này chủ yếu là tự giải thích. Một điều cho những người không thành thạo Python: *Toán tử bị quá tải để hoạt động như xtoán tử của Perl , lặp lại đối số chuỗi của nó số lần được chỉ định bởi đối số số của nó. Ví dụ'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"

Dùng thử trực tuyến

Giải trình

    % 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

Hãy thử trực tuyến!

TSQL, 97 byte

Chơi gôn

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

Ung dung:

DECLARE @x varchar(max)='Lobby'

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

PRINT @x

Dùng thử trực tuyến