Вам буде надано рядок, що складається з друкованого ASCII (без нових рядків). Ваше завдання - побудувати приємну сходи для мого Замку.

Як побудувати гарну сходи?

По-перше, ви повинні отримати всі обертання рядка. Наприклад, рядок abcdмає такі обертання: abcd, bcda, cdab, dabc(кожен символ переміщується до кінця, поки ми не досягнемо останнього символу).
Тепер розміщуємо кожне обертання один на одного:
```
abcd
bcda
cdab
dabc
```
Ми не можемо дійсно піднятися на пряму стіну, тому ми повинні будувати сходи. Це означає, що вам слід додати ряд пробілів перед кожним обертанням, що відповідає його індексу, у списку обертання:
```
abcd
 bcda
  cdab
   dabc
```
Вам також потрібна Сходи, яка посилається на інший бік мого замку, тому вам слід побудувати такий, як внизу, перевернувши кожне обертання і додавши деякий пробіл:
```
abcd      dcba
 bcda    adcb
  cdab  badc
   dabccbad
```

Це код-гольф , отже, найкоротший код у байтах виграє і застосовуються стандартні правила для тегу.

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

Вхід:, abcdВихід:

abcd      dcba
 bcda    adcb
  cdab  badc
   dabccbad

Вхід:, aaaaВихід:

aaaa      aaaa
 aaaa    aaaa
  aaaa  aaaa
   aaaaaaaa

Введення:, Code golfВиведення (Зверніть увагу на пробіли):

Code golf                flog edoC
 ode golfC              Cflog edo 
  de golfCo            oCflog ed  
   e golfCod          doCflog e   
     golfCode        edoCflog     
     golfCode        edoCflog     
      olfCode g    g edoCflo      
       lfCode go  og edoCfl       
        fCode gollog edoCf

code-golf ascii-art

— Містер Xcoder
джерело

Пісочниця

— Містер Xcoder

Чи не слід сходи починати підніматися вгору, а потім спускатися, а не спускатися, а потім вгору? : P

— Стівен

@StepHen Для цього завдання не слід: p

— Містер Xcoder

5

Тісно пов’язаний

— Джеймс

dabc. -------

— Олівер Ні,

8

05AB1E , 12 байт

Код:

vDNúsÀ}\».B∞

Використовує кодування 05AB1E . Спробуйте в Інтернеті!

Пояснення:

v     }        # Length input times, do.. (N = iteration count)
 DNú           #   Duplicate and prepend N spaces
    sÀ         #   Swap and rotate one to the left
       \       # Discard the top of the stack
        »      # Join the stack by newlines
         .B    # Pad with spaces into a rectangle
           ∞   # Mirror the string

— Аднан
джерело

1

Я

— отримав

4

Желе , 16 байт

J’ɓ⁹⁶ẋ;"ṙz⁶Zm€0Y

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

Звичайно, -1 з допомогою Джонатана Allan «S ɓ!

— Ерік Аутгольфер
джерело

Моє рішення занадто схоже на думку, ось що: J’ɓ⁹⁶ẋ;"ṙz⁶Zm€0Y(або LḶдля J’)

— Джонатан Аллан

@JonathanAllan Heh.

— Ерік Аутгольфер

3

Сітківка , 47 байт

.
$.`$* $&$'$`$.'$* ¶
%(`^
$_¶
O$^`.(?=.*$)

¶

Спробуйте в Інтернеті! Пояснення: На першому етапі створюється ліва сходи, розглядаючи кожен символ і створюючи пробіли, рівні поточному положенню, потім залишок рядка, потім початок рядка, потім пробіли, що дорівнюють решті рядка. Решта сценарію працює над кожним рядком, щойно створеним по черзі. Спочатку рядок дублюється, потім символи у дубліката зворотні, потім рядок та його дублікат об'єднуються.

— Ніл
джерело

3

Python 3 , 89 байт

x=input()
l=len(x)
for i in range(l):y=x[i:]+x[:i];j=' '*i;print(j+y+'  '*(l+~i)+y[::-1])

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

-1 байт завдяки ов

-1 байт завдяки Лінні

— HyperNeutrino
джерело

l-i-1може бути l+~iяк~i == -i-1

— ов

' '*(l+~i)*2дорівнює ' '*(l+~i), що на один байт коротше!

— Лінн

2

C (gcc) , 126 байт

i,j,k,l;f(char*s){for(l=strlen(s),i=0;i<l;i++,puts(""))for(j=0;j<4*l-2;j++,putchar(i<=k&k<i+l?s[k%l]:32))k=j<2*l-1?j:4*l-3-j;}

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

— Лина монахиня
джерело

2

Вугілля деревне , 23 21 20 байт

ＦＬθ«ＦＬθ§θ⁺κι↘ＭＬθ←»‖Ｃ

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

Можливо, можна більше пограти в гольф, але я надсилаю повідомлення з мобільного додатку. Посилання на багатослівну версію .

— Чарлі
джерело

О, btw, якщо ви не додасте пояснення принаймні, використовуйте прапор pls

— лише для ASCII

@ ASCII тільки вибачте, я вважав, що багатослівна версія вважається поясненням.

— Чарлі

Почекайте, що nvm цього не бачив

— лише ASCII

Я не думаю , що це було правда в той час , але в ці дні ви можете заповнити багатокутник з довільної рядком і отримати саме результат вам потрібно для 9 байт: Ｇ→↘←Ｌθθ‖Ｃ.

— Ніл

2

Haskell, 80 79 байт

(s:u)#t|q<-(t>>" ")++s:u++t++(u>>" ")=q++reverse q++'\n':u#(t++[s])
u#_=u
(#"")

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

Як це працює

(#"")                      -- start with the input string and an empty accumulator

(s:u)#t                    -- let s be the first char and u the rest of the input
                           -- string, and t the accumulator
    |q<-                   -- let q be half of the current line, i.e.
        (t>>" ")++         --   length of t times spaces
        s:u++              --   s and u (aka the input string)
        t++                --   the accumulator
        (u>>" ")           --   length of u times spaces
    = q ++ reverse q ++    -- the current line is q and q reversed
        '\n' :             -- and a newline
        u#(t++[s])         -- and a recursive call with u as the new input
                           -- string and s put at the end of t
_#_=[]                     -- base case: stop if the input string is empty

Редагування: Дякую @ Ørjan Johansen за байт.

— німі
джерело

u#_=uзберігає байт.

— Ørjan Johansen

@ ØrjanJohansen: Спочатку у мене був список рядків, unlinesде u#_=uне вводиться перевірка, а пізніше я перейшов до створення єдиного рядка ... Дякую!

— німі

2

J, 34 байти

([,.|.)@(i.@#((' '#~[),[|.])"0 1])

неозорий

([,.|.) @ (i.@# ((' '#~[) , [|.])"0 1 ])

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

— Йона
джерело

1

Pyth , 19 байт

jms_BdC.tm+*d;.<QdU

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

— Лина монахиня
джерело

1

Математика, 119 байт

b=StringRotateLeft;j=Table;Column@j[""<>{" "~j~i,b[s=#,i],j["  ",t-i],b[StringReverse@s,-i]},{i,0,t=StringLength@#-1}]&

— J42161217
джерело

1

PHP, 95 байт

for($e=strlen($s=$argn);$i<$e;$s.=$s[$i],$s[$i++]=" ")echo$t=str_pad($s,2*$e-1),strrev($t),"
";

Запустіть як трубу -nRабо спробуйте в Інтернеті .

зламатися

for($e=strlen($s=$argn);    # import input
    $i<$e;                  # loop length times
    $s.=$s[$i],                 # 2. append current character
    $s[$i++]=" ")               # 3. set current character to space
    echo$t=str_pad($s,2*$e-1),  # 1. print string padded with length-1 spaces
        strrev($t),             #    print reverse
        "\n";                   #    print newline

— Тіт
джерело

1

Japt , 22 байти


l
VÇç +UéZn)+´Vç)ê1Ã·

Провідна нова лінія є частиною програми.

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

Запустити всі тестові випадки за допомогою мого WIP CodePen.

Пояснення

Неявне: U= рядок введення. Перший рядок порожній, щоб не перезаписати U.

Другий рядок неявно призначає довжину ( l) Uдо V.

Третій рядок:

VÇç +UéZn)+´Vç)ê1Ã·
VoZ{Zç +UéZn)+--Vç)ê1} · Ungolfed
VoZ{                 }   Create array [0, V) and map by...
    Zç                      The current value (Z) times " "
       +UéZn)               Concatenated with U rotated Z times left
             +--Vç)         Concatenated with --V times " ". This decrements V
                   ê1       Palindromize with repeated last char
                       · Join with newlines and implicitly output

— Джастін Марінер
джерело

1

Pyth, 20 байт

jms_B.>+.<Qd*\ tlQdl

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

— хлопати
джерело

1

Javascript (ES6), 118 байт

s=>[...s].map((_,y)=>Array(l=(j=s.length)*4-2).fill().map((_,x)=>(x=x<l/2?x:l-x-1)>=y&y+j>x?s[x%j]:" ").join``).join`
`

Приклад фрагмента коду:

f=
s=>[...s].map((_,y)=>Array(l=(j=s.length)*4-2).fill().map((_,x)=>(x=x<l/2?x:l-x-1)>=y&y+j>x?s[x%j]:" ").join``).join`
`
o.innerText=f("Code golf")

<pre id=o>

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

— Герман Л
джерело

1

Python 2 , 85 83 байт

Дякую @ovs за 2 байти: l+~iі допоміг мені виявити небажаний пробіл

x=input()
l=len(x)
for i in range(l):r=i*' '+x[i:]+x[:i]+(l+~i)*' ';print r+r[::-1]

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

— Officialalaimm
джерело

1

l-1-iможе бути l+~iяк~i == -i-1

— ов

1

8-е , 173 168 байт

Код

s:len n:1- ( >r dup s:len n:1- "" ( " " s:+ ) rot times dup 0 r@ s:slice -rot r> -1 s:slice s:+ s:+ dup s:rev swap . . cr null s:/ a:shift a:push "" a:join ) 0 rot loop

Безгольова версія з коментарями

: shifter \ s -- s
  null s:/     \ convert string into array
  a:shift      \ remove the first item in the array and put it on TOS
  a:push       \ append the former 1st item to array
  "" a:join    \ convert array into string
;

: stairway \ s -- s
  s:len n:1-
  (
    >r                       \ save loop index
    dup                      \ duplicate input string 
    s:len n:1-               \ get string length
    "" ( " " s:+ ) rot times \ make filler
    dup                      \ duplicate filler 
    0 r@ s:slice             \ make left filler
    -rot                     \ put left filler at proper position
    r> -1 s:slice            \ make right filler
    s:+ s:+                  \ build string ( 1st half of stairway )
    dup s:rev                \ build 2nd half 
    swap . . cr              \ print it
    shifter                  \ shift rotate 1st character
  ) 0 rot loop               \ loop from 0 to len(string)-1
;

Використання та приклади

ok> "abcd" s:len n:1- ( >r dup s:len n:1- "" ( " " s:+ ) rot times dup 0 r@ s:slice -rot r> -1 s:slice s:+ s:+ dup s:rev swap . . cr null s:/ a:shift a:push "" a:join ) 0 rot loop
abcd      dcba
 bcda    adcb 
  cdab  badc  
   dabccbad

Або більш чітко

ok> "Code golf" stairway
Code golf                flog edoC
 ode golfC              Cflog edo 
  de golfCo            oCflog ed  
   e golfCod          doCflog e   
     golfCode        edoCflog     
     golfCode        edoCflog     
      olfCode g    g edoCflo      
       lfCode go  og edoCfl       
        fCode gollog edoCf

— Садиба Хаос
джерело

Побудуй мені замкову сходи!

Як побудувати гарну сходи?

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

05AB1E , 12 байт

Код:

Пояснення:

Желе , 16 байт

Сітківка , 47 байт

Python 3 , 89 байт

C (gcc) , 126 байт

Вугілля деревне , 23 21 20 байт

Haskell, 80 79 байт

J, 34 байти

неозорий

Pyth , 19 байт

Математика, 119 байт

PHP, 95 байт

Japt , 22 байти

Пояснення

Pyth, 20 байт

Javascript (ES6), 118 байт

Python 2 , 85 83 байт

8-е , 173 168 байт