Струнні сходи

Відмова: Це перший виклик, який я пропоную. Будь-який відгук вітається. Якщо це дублікат, будь ласка, вкажіть це.

Ось посилання на пісочний пост.

Мета

Мета цього завдання полягає в тому, щоб, задавши рядок і ціле число, надрукувати рядок у блоки розміру цілого числа. Якщо слово має більше символів, ніж розмір блоку, надрукуйте його у низхідній схемі "сходи".

Правила

• Згаданий вище "шаблон сходів" означає, що для кожного блоку одного і того ж слова цей блок повинен починатися саме там, де закінчується блок над ним. Перевірте тестові приклади (або задайте), якщо у вас є якісь питання.
• Якщо слово розбито на кілька блоків, наступне слово має бути надруковано з достатньою кількістю пробілів, тобто воно має бути відокремлене від нижнього блоку попереднього слова точно на один пробіл. Перевірте тестові випадки (або запитайте) на роз'яснення.
• Можна припустити, що вхідний рядок буде складатися лише з символів, що друкуються ASCII. Також у нього не буде декількох пробілів підряд.
• Можна також припустити, що ціле число завжди буде в діапазоні [1, + ∞).
• Доступні пробіли або нові рядки.
• Для вводу / виводу можна використовувати будь-який розумний метод .
• Застосовуються стандартні лазівки .
• Це код-гольф , тому найкоротший код (у байтах, на кожній мові) виграє. Через тиждень (або близько того) я прийму загальну найкоротшу відповідь.

Випробування

(String, Integer) => (Output)

"This is a large string", 3 => Thi is a lar  str
                                 s        ge   ing

"This is an even larger string!", 2 => Th  is an ev  la   st
                                        is        en  rg   ri
                                                       er   ng
                                                             !
"Ooooh dear, what a big string you have!", 3 
=> Ooo  dea  wha a big str   you hav
     oh   r,   t         ing       e!

"Staphylococcus saprophyticus", 4 => Stap        sapr
                                        hylo        ophy
                                           cocc        ticu
                                              us          s

"I hope you find this challenge interesting", 2
=> I ho  yo fi  th  ch    in
      pe  u  nd  is  al    te
                      le    re
                       ng    st
                        e     in
                               g

"Well, this test case looks kinda pointless now doesn't it?", 15
=> Well, this test case looks kinda pointless now doesn't it?

"This one looks a lot more interesting!", 1 => T o l a l m i
                                               h n o   o o n
                                               i e o   t r t
                                               s   k     e e
                                                   s       r
                                                           e
                                                           s
                                                           t
                                                           i
                                                           n
                                                           g
                                                           !
"Keep in mind, people: 'Punctuation! Does! Matter!'", 2
=> Ke  in mi  pe   'P      Do  Ma
    ep     nd  op   un      es  tt
            ,   le   ct      !   er
                 :    ua          !'
                       ti
                        on
                         !

Вугілля деревне , 22 байти

Ｆ⪪θ «↑⸿⸿ＦＬι«Ｍ¬﹪κＩη↙§ικ

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

  θ                      First input
 ⪪                      Split on spaces
Ｆ   «                   Loop over each word
     ↑⸿⸿                Move the cursor to the top row and two columns right*
          ι             Current word
         Ｌ              Length
        Ｆ  «            Loop over implicit range
               κ        Current index
                 η      Second input
                Ｉ       Cast to integer
              ﹪         Modulo
             ¬          Logical not
            Ｍ     ↙     Move that many characters down and left
                    ι   Current word
                     κ  Current index
                   §    Index into word and implicitly print

* Точніше, "переходити до початку наступного рядка двічі, але так, ніби полотно поверталося". Редагувати: між задачею цього завдання та прийняттям цієї відповіді, вугілля фактично придбало спосіб розбиття рядка на пари символів, зменшення коду на 16 байт:
Ｆ⪪θ «↑⸿⸿Ｆ⪪ιＩη«κ↙ спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

  θ                 First input
 ⪪                  Split on spaces
Ｆ   «               Loop over each word
     ↑⸿⸿            Move the cursor to the top row and two columns right
          ι         Current wordＩη
            η       Second input
           Ｉ        Cast to integer
         ⪪          Split into substrings of that length
        Ｆ    «      Loop over each substring
              κ     Print the substring
               ↙    Move the cursor down and left

SOGL V0.12 , 28 27 26 байт

ā,θ{0Eā;{ēb÷eb‰⁴bH*+I;Iž}┼

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

Я це робив ‰, роблячи це, але документація на це існувала і раніше.

Пояснення:

ā                            push an empty array - the main canvas
 ,                           push the first input
  θ{                         for each word (pushing the word each time)
    0E                         set the variable E to 0
      ā;                       below the current word place an empty array - current word canvas
        {               }      for each character of the word
         ēb÷                     push (E++ // B) - note that E is incremented after being used
            eb‰                  push E positive modulo B - like regular modulo but in the 0 output case it gives B
               ⁴                 duplicate the item below ToS
                bH               push B-1
                  *              multiply [(E++ // B) and B-1]
                   +             add [that multiplication to E‰B] - current letters X position
                    I            increase the X position to have one leading space row
                     ;           swap top 2 items - current X position and (E++ // B)
                      I          increase to create current letters Y position
                       ž         in those positions insert the current letter in the current words canvas
                         ┼     append to main canvas current word canvas horizontally

Javascript ES6, 187 183 174 166 163 148 145 143 141 140 138 байт

• для читабельності додали кілька байтів у код і видалили їх у підрахунку байтів
• замість s = "", j = 0 я зробив j = s = ""
• замість for (i in s) - регулярний для циклу - видалено 1 байт
• використовуючи вже сформовані значення в індексаторах масивів - вилучено 8 байт
• використання вже зі значенням i = s.length (з першого циклу) в eval - замість реальної довжини масиву - викликає пробіл, який дозволений
• використання карти S замість eval - зменшується на 3 байти
• використовуючи натомість заповнення для ініціалізації порожнього масиву - тому в циклі результату немає необхідності в циклі
• може замінити || з | - зменшено на 2 байти
• завдяки @Justin Mariner - замініть входження == "" на <"!" зменшує 2 байти
• перемістив умови з оператора a [I] на інший, щоб зменшити одне "u <"! "" - зменшує 2 байти
• замість (I + = 2, j = 0) - j =! (I + = 2) - зменшено 1 байт
• "за" замість для

  F=(s,n)=>{R=[I=j=i=0]
  for(u of s)
  a=R[z=u<"!"?j=!(I+=2):(j%n&&I++,j++/n|0)]=R[z]||[...s].fill` `,a[I]=u
  return R.map(x=>x.join``).join`
  `}
  console.log(F("This is a large string", 3));
  console.log(F("This is an even larger string!", 2));
  console.log(F("Ooooh dear, what a big string you have!", 3));
  console.log(F("Staphylococcus saprophyticus", 4));
  console.log(F("I hope you find this challenge interesting", 2));
  console.log(F("Well, this test case looks kinda pointless now doesn't it?", 15));
  console.log(F("This one looks a lot more interesting!", 1))
  console.log(F("Keep in mind, people: 'Punctuation! Does! Matter!'", 2));

  Виконати фрагмент кодуСховати результати

  Розгорніть фрагмент

C #, 200 байт

int x=-2,y=0;Regex.Split(i,@"\s+").ToList().ForEach(w =>{y=0;Regex.Matches(w,".{0,"+s+"}").Cast<Match>().ToList().ForEach(c=>{x+=(y==0?2:s-1);Console.SetCursorPosition(x,y);Console.Write(c);y++;});});

Якщо рядок задано i, а розмір вказано s .

Напр

string i = "Staphylococcus saprophyticus";
int s = 2;    
int x=-2,y=0;Regex.Split(i,@"\s+").ToList().ForEach(w =>{y=0;Regex.Matches(w,".{0,"+s+"}").Cast<Match>().ToList().ForEach(c=>{x+=(y==0?2:s-1);Console.SetCursorPosition(x,y);Console.Write(c);y++;});});

В основному, перша частина Regex.Split використовує білі пробіли для розділення речення на слова, а Regex.Matches розбиває кожне слово на шматки, визначені s . Шматок записується в позицію курсору (x, y), де Y встановлюється на 0 для кожного нового слова, а x збільшується на 2 для першого шматка слова і згодом (s-1) для кожного фрагмента.

x починається його життя в -2, щоб переконатися, що його перше використання встановлено на 0.

Я недостатньо обізнаний у дрібницях C #, щоб можна було зробити його меншим, але підозрюю, що це можливо.

Python 2 , 203 199 байт

s,l=input()
S=s.split()
x=[]
for w in S:L=len(w);W=[i/l*~-l*' '+w[i:i+l]for i in range(0,L,l)];x+=[[c.ljust(L/l*~-l+L%l)for c in W+['']*len(s)]]
for l in zip(*x):
 L=' '.join(l)
 if L.strip():print L

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

Perl 5, 59 байт

55 байт код + 4 for -ai.

$-=s/.{$^I}\K(?=.)/\x1b[1B\x1b[1D/g,print$_,"\x1b[1A"x$-,$"for@F

Примітка: \x1bs - це літеральні ESCсимволи, але тут можна легко скопіювати та вставити.

Цей сценарій використовує послідовності відходу ANSI і вимагає введення через -iпрапор, який є нестандартним. Якщо будь-яке з них є неприйнятним, повідомте мене, і я оновлю оновлення.

Приклад виконання

perl -ai3 string-stairs.pl <<< 'This is a large string' 2>/dev/null
Thi is a lar  str   
  s        ge   ing

perl -ai2 string-stairs.pl <<< 'This is an even larger string!' 2>/dev/null
Th  is an ev  la   st   
 is        en  rg   ri
                er   ng
                      !

perl -ai3 string-stairs.pl <<< 'Ooooh dear, what a big string you have!' 2>/dev/null
Ooo  dea  wha a big str   you hav  
  oh   r,   t         ing       e!

perl -ai4 string-stairs.pl <<< 'Staphylococcus saprophyticus' 2>/dev/null
Stap        sapr       
   hylo        ophy
      cocc        ticu
         us          s

perl -ai2 string-stairs.pl <<< 'I hope you find this challenge interesting' 2>/dev/null
I ho  yo fi  th  ch    in     
   pe  u  nd  is  al    te
                   le    re
                    ng    st
                     e     in
                            g

perl -ai15 string-stairs.pl <<< "Well, this test case looks kinda pointless now doesn't it?" 2>/dev/null
Well, this test case looks kinda pointless now doesn't it? 

perl -ai1 string-stairs.pl <<< 'This one looks a lot more interesting!' 2>/dev/null
T o l a l m i 
h n o   o o n
i e o   t r t
s   k     e e
    s       r
            e
            s
            t
            i
            n
            g
            !

perl -ai2 string-stairs.pl <<< "Keep in mind, people: 'Punctuation! Does! Matter!'" 2>/dev/null
Ke  in mi  pe   'P       Do   Ma    
 ep     nd  op   un       es   tt
         ,   le   ct       !    er
              :    ua            !'
                    ti
                     on
                      !