Давши рядок тексту, виведіть його як «вежу».

Кожен шматочок рядка (форми 0:n) повторюється 5*nраз, тому перший символ повторюється 5 разів, потім перший та другий 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 байти на використанні збігів, що перекриваються. В $(той , що зчіплюється з новим рядком, то 5*повторює його, а потім $.>`повторює його подальше кількість разів , заданих його довжиною.

Полотно , 6 байт

［³５×＊Ｐ

Спробуйте тут!

Пояснення:

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

Брахілог , 15 байт

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

Спробуйте в Інтернеті!

Фінал cможна видалити, якщо ОП позитивно відповість на питання про вихід 2D-масивів.

Cubix ,  44  40 байт

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

Спробуйте в Інтернеті!

Це все ще має багато недійсного, але це трохи краще, ніж раніше.

Як дуже короткий опис, символ вхоплюється з вхідних даних і перевіряється на EOI (-1), зупиняється, якщо він є. Потім стек повертають назад. Отримайте кількість елементів у стеку та кратне -5. Відкиньте це на дно стопки і почистіть. Проведіть цикл через стопку, роздруковуючи до отримання від’ємного числа. Роздрукуйте новий рядок, збільшуючи число, якщо 0 упустити нуль, повернути стек і почніть з введення знову, інакше проведіть стек через друк, поки не буде від’ємне число… ad nauseum

Кубіфіковано це схоже

      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), який golfed в JavaScript , як(.4*i+.25)**.5+.5|0 .

Для рядка довжиною 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))}

Пітон 3 , 43 41 байт

Завдяки ов за збереження 2 байтів!

Код

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 байтами довше.

Редагувати: -1 байт завдяки @BWO.

Вугілля деревне , 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 байт

^{Оцінка складеться навпіл завдяки маззи
+5 байт завдяки AdmBorkBork, що вказує на характеристики}

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

Спробуйте в Інтернеті!

Здійснює введення через бризки. Працює, будуючи рядок, додаючи наступний символ до себе, перетворює його в масив одного елемента, а потім повторює його 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íîî/ò

Очікує введення без нових рядків, але виводить лише один провідний та зворотний новий рядок.

Пояснення

Різні підрядки розділені двома послідовними новими рядками, так що лінійне дублювання застосовується лише до рядків, що відповідають регулярному вираженню $\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

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         

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 байт

-3 байти від @Shaggy

£¯°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")

Четвертий (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));}

-28 байт завдяки @ OlivierGrégoire .
-1 байт завдяки @ceilingcat .

Спробуйте в Інтернеті.

Пояснення:

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`

мозковий ебать , 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
]

Рубін , 37 байт

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

Спробуйте в Інтернеті!