テキストの文字列が与えられたら、それを「タワー」として出力します。

（の形式の0:n）文字列の各スライスが繰り返される5*nので、最初の文字が5回繰り返され、最初と2番目の文字が10回繰り返されます。

例：

'hello' ->

['h']  
['h']  
['h']  
['h']  
['h']  
['h', 'e']  
['h', 'e']  
['h', 'e']  
['h', 'e']  
['h', 'e']  
['h', 'e']  
['h', 'e']  
['h', 'e']  
['h', 'e']  
['h', 'e']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  
['h', 'e', 'l', 'l', 'o']  


'cat' ->

['c']  
['c']  
['c']  
['c']  
['c']  
['c', 'a']  
['c', 'a']  
['c', 'a']  
['c', 'a']  
['c', 'a']  
['c', 'a']  
['c', 'a']  
['c', 'a']  
['c', 'a']  
['c', 'a']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  
['c', 'a', 't']  

ルール：

各レイヤーを文字のリストとして出力することも、文字列だけを結合して出力することもできます。

R、48バイト

function(s)substring(s,1,rep(x<-1:nchar(s),x*5))

オンラインでお試しください！

文字列のリストを返します。

05AB1E、6バイト

ηā5*ÅΓ

オンラインでお試しください！

文字列のリストを返します。

説明

     ÅΓ # Run-length decode...
η       # ... the prefixes of the input
 ā5*и   # ... with the length range multiplied by 5 -- [5, 10, 15, 20, 25]

Haskell、36バイト

f""=[]
f s=f(init s)++(s<$s<*[1..5])

オンラインでお試しください！

スタックス、8 バイト

äï▄;♫├W^

実行してデバッグする

開梱されていない、コメントされていない、これはこのように見えます。

|[F for each prefix of the input
  i^5*  5*(i+1) where i is the iteration index
  DQ    that many times, peek and print to output

これを実行する

TI-Basic（TI-84 Plus CE）、29バイト（27トークン）

For(A,1,length(Ans
For(B,1,5A
Disp sub(Ans,1,A
End
End

説明：

For(A,1,length(Ans # 9 bytes, 8 tokens: for A from 1 to the length of the string
For(B,1,5A         # 8 bytes, 8 tokens:  5*A times
Disp sub(Ans,1,A   # 9 bytes, 8 tokens:   Print the first A characters of the string 
End                # 2 bytes, 2 tokens:  end loop
End                # 1 byte,  1 token:  end loop

網膜、15バイト

.
$.>`*5*$($>`¶

オンラインでお試しください！リンクにはテストケースが含まれます。説明：

.

文字列内の各文字に一致します。

$.>`*5*$($>`¶

$`一致のプレフィックスです。Retinaは2つの修飾子を提供>し、連続する一致の間の文字列のコンテキストにあるように修正します.が、長さはかかります。したがって、接尾辞の接頭辞から始めます。これは、接頭辞を含む一致に相当します。これにより、重複する一致を使用して2バイトを節約できます。次に$(、それを改行で連結し5*、それを$.>`繰り返し、さらにその長さで指定された回数だけ繰り返します。

Canvas、6 バイト

［³５×＊Ｐ

ここで試してみてください！

説明：

[      for each prefix
 ³5×     1-indexed counter * 5
    *    repeat the prefix vertically that many times
     P   and print that

Brachylog、15バイト

a₀ᶠ⟨gj₎{l×₅}⟩ᵐc

オンラインでお試しください！

cOPが2D配列の出力に関する質問に肯定的に応答した場合、最終版は削除できます。

Cubix、 44  40バイト

i.!?@UBqwW_#/>u...;B^...?qo;;q*n5;oN/./)

オンラインでお試しください！

これにはまだ多くのノーオペレーションがありますが、以前より少し良くなっています。

非常に簡単な説明として、キャラクターは入力から取得され、EOI（-1）についてテストされます。その後、スタックが反転されます。スタック上のアイテム数と-5の倍数を取得します。それをスタックの一番下に落とし、クリーンアップします。スタックをループし、負の数になるまで印刷します。改行を印刷し、数値をインクリメントします。0の場合はゼロをドロップし、スタックを反転して入力から再び開始します。

ように見える

      i . !
      ? @ U
      B q w
W _ # / > u . . . ; B ^
. . . ? q o ; ; q * n 5
; o N / . / ) . . . . .
      . . .
      . . .
      . . .

オンラインで見る

ゼリー、8バイト

¹Ƥx'J×5Ɗ

オンラインでお試しください！

J×5x'@¹Ƥ

オンラインでお試しください！

¹Ƥx'Jx'5

オンラインでお試しください！

これはおそらくゴルフ可能です。

JavaScript、48 46バイト

（ありがとう@redundancy）

編集：著者は明確にし、この回答は現在有効ではありませんが、ここでは変更せずにそのままにします。

複数行の文字列の配列を返します。

s=>[...s].map(c=>(q+=c).repeat(5*++i),i=q=`
`)

それを試してみてください

f = s=>[...s].map(c=>(q+=c).repeat(5*++i),i=q=`
`);

console.log( f("hello").join`` );

潜在的な戦略：

それはあまり助けにはなりませんでしたが、誰かがこれを使用できるかもしれません：

（0から始まる）行の文字数iはですfloor(sqrt(2/5*i+1/4)+1/2)。これはJavaScriptでとしてゴルフされます(.4*i+.25)**.5+.5|0。

lengthの文字列にはn、n*(n+1)*5/2行があります。

おそらく： s=>{for(i=0;(n=(.4*i+++.25)**.5+.5|0)<=s.length;)console.log(s.slice(0,n))}

Pythonの3、43の 41バイト

2バイトを節約してくれたovsに感謝します！

コード

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

オンラインでお試しください！

C（gcc）、67バイト

i,j;f(char*s){for(i=0;s[i++];)for(j=5*i;j--;)printf("%.*s\n",i,s);}

オンラインでお試しください！

殻、8バイト

ΣzoR*5Nḣ

オンラインでお試しください！

説明

Σz(R*5)Nḣ  -- example input: "ab"
        ḣ  -- non-empty prefixes: ["a","ab"]
 z(   )N   -- zip with [1..]
    *5     -- | multiply by 5
   R       -- | replicate
           -- : [["a","a","a","a","a"],["ab","ab","ab","ab","ab","ab","ab","ab","ab","ab"]]
Σ          -- concat: ["a","a","a","a","a","ab","ab","ab","ab","ab","ab","ab","ab","ab","ab"]

Haskell、46 43 42バイト

f s=do n<-[1..length s];take n s<$[1..n*5]

オンラインでお試しください！

悲しいinitsことimport Data.Listに、

import Data.List
((<$)<*>(>>[1..5])=<<).inits

45バイトの方が長いです。

編集：@BWOのおかげで-1バイト。

炭、11バイト

Ｆ⊕ＬθＥ×⁵ι…θι

オンラインでお試しください！リンクは、コードの詳細バージョンです。出力には、長さゼロの部分文字列の0回の繰り返しが含まれます。説明：

   θ          Input string
  Ｌ           Length
 ⊕            Incremented
Ｆ             Loop over implicit range
      ⁵       Literal 5
       ι      Current index
     ×        Multiply
    Ｅ         Map over implicit range
         θ    Input string
          ι   Current index
        …     Chop to length
              Implicitly print each string on its own line

ルビー、46 42バイト

->s{(1..s.size).map{|i|puts [s[0,i]]*i*5}}

オンラインでお試しください！

PowerShell、40 20 25バイト

^{AdmBorkBorkが仕様を指摘してくれたおかげで、+ 5バイトの驚異的なおかげでスコアが半分に削減されました。}

$args|%{,($s+=$_)*5*++$i}

オンラインでお試しください！

スプラッティングを介して入力を受け取ります。次の文字を自分自身に追加して文字列を作成し、それを1つの要素の配列に変換して、それを繰り返し5*iます。

MATL、12バイト

f"G@:)@5*1X"

オンラインでお試しください！

f               % Get the indices of input i.e. range 1 to length(input)
 "              % For loop over that
   G            % Push input string
    @           % Push current loop index
     :          % Range 1 to that
      )         % Index at those positions (substring 1 to i)
       @5*      % Multiply loop index by 5
          1X"   % Repeat the substring that many times rowwise
                % Results collect on the stack and are 
                %  implicitly output at the end

V、17バイト

òïç$îî/6Ä
Hl$xòxú

改行のない入力を期待し、余分な先行改行のある出力を期待します。

入出力がチャレンジ仕様に違反している場合、このエントリを削除できます。

オンラインでお試しください！

21バイト

òïç$îî/6Ä
Hl$xòxíîî/ò

改行なしの入力を期待しますが、出力は先頭と末尾の改行が1つだけです。

説明

異なる部分文字列は2つの連続した改行で区切られているため、行ごとの複製は正規表現に一致する行にのみ適用され$\n\nます。

複製コマンド（Ä）にカウント（たとえば6Ä（と思う）を指定すると、n時間を貼り付ける前に現在の行が削除されるため、n - 1コピーが追加されているように見えます。

ò         | recursively...
 ï        | . append newline
  ç       | . globally search lines matching...
   $îî    | . . compressed version of $\n\n regex
      /6Ä | . . duplicate to create 6 copies
H         | . go to first line
 l        | . move cursor right 1 char
          | . . if current line is 1 char long, errors out of recursion
  $x      | . delete 1 char from end of current line
    ò     | ...end
     x    | delete extra 1-char substring
      ú   | sort so that newlines rise to top

Perl 5、29バイト

map{say}($x.=$_)x($y+=5)for@F

オンラインでお試しください！

Perl 6、25バイト

{(1..*X*5)RZxx[\~] .comb}

オンラインでお試しください！

文字列のリストのリストを返す匿名コードブロック。

1D配列として必要な場合は、次のflatように前に追加できます。

{flat (1..*X*5)RZxx[\~] .comb}

オンラインでお試しください！

説明：

{                       }  # Anonymous code block
                   .comb   # Split the string into a list of characters
              [\~]         # Triangular reduce the list of characters with the concatenate operator
          RZxx             # Multiply each list by:
 (1..*X*5)                 # A sequence of 5,10,15 etc.

あるいは、

{($+=5)xx*RZxx[\~] .comb}

オンラインでお試しください！

同じバイト数でも機能します。

Japt、10バイト

出力形式が受け入れられるかどうかの確認を待っています（受け入れられない場合は+2バイト）。

å+ £T±5 ÇX

それを試してみてください

Japt、15 12バイト

@Shaggyから-3バイト

£¯°Y +R pY*5

オンラインでお試しください！

JavaScript、76バイト

s=>{for(i=1;i<=s.length;i++)for(j=0;j<5*i;j++)console.log(s.substring(0,i))}

f=s=>{for(i=1;i<=s.length;i++)for(j=0;j<5*i;j++)console.log(s.substring(0,i))}

f("cat")

Forth（gforth）、48バイト

: f 1+ 1 do i 5 * 0 do dup j type cr loop loop ;

オンラインでお試しください！

説明

1. 1から文字列長までループします
2. 反復ごとに：
   1. ループ（5 *ループインデックス）回
   2. 文字列の最初から外側のループインデックスに出力します

コードの説明

: f                \ start a new word definiton
  1+ 1             \ set up to the loop paramers from 1 to str-length
  do               \ start a counted loop
    i 5 * 0 do     \ start a second counted loop from 0 to 5*index - 1
      dup j        \ duplicate the string address and set the length to the outer index
      type         \ print character from start of string to loop index
      cr           \ output a newline
    loop           \ end inner counted loop
  loop             \ end outer counted loop
;                  \ end word definition

Java 10、120 92 90 89バイト

s->{for(int j=1,i=1;i<=s.length();i+=++j>i*5?j=1:0)System.out.println(s.substring(0,i));}

@OlivierGrégoireに感謝-28バイト。@ceilingcatの
おかげで-1バイト。

オンラインでお試しください。

説明：

s->{                      // Method with String parameter and no return-type
  for(int j=1,            //  Repeat-integer, starting at 1
      i=1;i<=s.length()   //  Loop `i` in the range [1,length_input]
      ;                   //    After every iteration:
       i+=++j>i*5?        //     Increase `j` by 1 first with `++j`
                          //     If `j` is now larger than `i` multiplied by 5:
           j=1            //      Increase `i` by 1, and reset `j` to 1
          :               //     Else:
           0)             //      Leave `i` the same by increasing it with 0
    System.out.println(   //   Print with trailing newline:
      s.substring(0,i));} //    The prefix of size `i`

brainfuck、40バイト

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

オンラインでお試しください！

[Tape: 10 (newline), [characters], 0, rowcounter]

++++++++++> 10 (newline)
,[          for each input character
  >>+++++     add 5 to number of rows
  [           for each row
    <<[<]       go to start
    >[.>]       print newline and all previous characters
    >>+         add 1 to next rowcounter cell
    <-          decrement current rowcounter cell
  ]
  <,          input next character
]

APL（Dyalog Unicode）、14 バイト^SBCS

{↑(5×⍳≢⍵)/,\⍵}

オンラインでお試しください！

私の最初のapl投稿ですので、何か提案があれば教えてください

使い方：

{↑(5×⍳≢⍵)/,\⍵}
          ,\⍵  - Prefixes of the input
         /      - Repeated
     ⍳≢⍵        - By a list of indices the same length as the input
   5×           - Times 5
 ↑              - Separate into rows         

ルビー、37バイト

f=->s{s[0]?f[s.chop]+[s]*s.size*5:[]}

オンラインでお試しください！