Змагання

Давши рядок, виведіть текст у формі квадрата.

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

Ви також можете припустити, що ніколи не буде нових рядків.

Приклад

Input:
Hi, world

Output:
Hi,
 wo
rld

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

Input:
Hi, world! Hello

Output:
Hi, 
worl
d! H
ello

Input:
Lorem ipsum dolor sit amt

Output:
Lorem
 ipsu
m dol
or si
t amt

Input:
H

Output:
H

Правила

• Це код-гольф , тому найкоротша відповідь у байтах виграє! Tierereaker - найбільш відповідна відповідь.
• Стандартні лазівки заборонені.

Vim, 59, 57 , 48 байт / натискання клавіш

$:let @q=float2nr(sqrt(col('.')))."|li<C-v><cr><C-v><esc>@q"<cr>@q

Оскільки V назад сумісний, ви можете спробувати його в Інтернеті!

Я випадково отримав нагороду за цю відповідь, тому переглянув її ще раз. Мої навички vim-golfing значно збільшились за останні 7 місяців, тому я побачив, що ця відповідь дуже погана. Цей набагато краще.

Brainfuck , 116 112 байт

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

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

Безпечний в ароматах BF, який не маскує клітини 256, не підтримує нульові байти.

Видаліть початкові стрілки праворуч, якщо аромат підтримує негативну пам’ять на збережені 4 байти.

Пояснення

Програма поділена на 3 етапи:

Stage 1: >>>>,[[<]<<+>>>[>],]<[<]
Stage 2: <+<[>>+<[-<-<+>>]<<++[->>+<<]>]>[-]>>
Stage 3: [<[->.[-]<[->+<]<+[->+<]>>]++++++++++.[-]<[->+<]>>]

1 етап

На цьому етапі ми ставимо всіх персонажів на стрічку, зберігаючи при цьому кількість символів.

Це стрічка для введення abcdefghiпісля цієї стрічки:

000 009 000 000 095 096 097 098 099 100 101 102 103
             ^

Це 009- кількість.

Для кожного символу переміщуємо перший нуль зліва, [<]а потім додаємо його до лічильника <<+>>>, а потім переходимо до самого правого нуля, [>]щоб підготуватися до наступного символу.

2 етап

Цей етап виконує квадратний корінь довжини, що зберігається у другій комірці.

Він продовжує віднімати, 1, 3, 5, 7, ...поки число не досягне нуля, зберігаючи перевірку кількості ітерацій.

Це працює, тому що квадратні числа можна виразити як 1 + 3 + 5 + ....

3 етап

Позначимо квадратний корінь довжини, знайденої вище як n.

Цей етап виводить nсимволи за один раз, а потім виводить новий рядок, поки стрічка не буде очищена.

Python 2, 55 байт

s=input()
n=int(len(s)**.5)
while s:print s[:n];s=s[n:]

05AB1E , 5 байт

Dgtô«

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

D    duplicate a (implicit input)
g    length of a
t    square root of a
ô    push a split in pieces of b
«    join by newlines (implicit output)

MATL , 6 байт

tnX^e!

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

Пояснення

t     % Take input implicitly. Push another copy
n     % Get number of elements of the copy
X^    % Take square root
e     % Reshape the input into that number of rows, in column-major order
      % (which means: down, then across)
!     % Transpose so that text reads horizontally. Implicitly display

Желе, 8 7 байт

sLƽ$j⁷

Збережено байт завдяки @ Dennis .

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

Пояснення

sLƽ$j⁷  Input: string S
    $    Monadic chain
 L         Get the length of S
  ƽ       Take the integer square root of it, call it n
s        Split S into chunks of size n
     j⁷  Join using newline

JavaScript (ES7), 49 байт

s=>s.match(eval(`/.{${s.length**.5}}/g`)).join`
`

44 байти лише у Firefox Nightly 43-46 ( **було введено деякий час між Firefox Nightly 42 та 43 та gяк окремий параметр було видалено деякий час між Firefox Nightly 46 та 47):

s=>s.match(`.{${s.length**.5}}`,`g`).join`
`

J, 9 байт

$~,~@%:@#

Це монадичний гак над вхідним рядком:

$~ ,~@%:@#

Правильний зубчик - це серія композицій:

,~ @ %: @ #

Зліва - формує дієслово, переключене таким чином, що воно працює у гаковому форматі.

Ось кілька проміжних результатів:

   # 'hiya'
4
   %:@# 'hiya'
2
   ,~@%:@# 'hiya'
2 2

На словах:

   size =: #
   sqrt =: %:
   dup =: ,~
   on =: @
   shape =: $~
   block =: shape dup on sqrt on size
   block 'Hello, World! :)'
Hell
o, W
orld
! :)

C, 64 байти

Зателефонуйте f()за допомогою рядка на квадрат.

m;f(char*s){for(m=sqrt(strlen(s));*s;s+=m)printf("%.*s\n",m,s);}

Спробуйте це на ideone .

Perl, 23 + 4 ( -pFпрапори) = 27 байт

-2 байти завдяки @DomHastings
-1 байт завдяки @DomHastings

$==sqrt@F;s/.{$=}/$&
/g

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

Розширення : обчислює квадратний корінь (давайте називати його Sдля пояснення) розміру вхідного даних (він завжди буде цілим числом) ( @Fвикористовується в скалярному контексті, таким чином повертаючи його розмір), а потім додавати новий рядок після кожного блоку Sсимволів.

zsh, 36 байт

fold -`sed s/.$//<<<$[$#1**.5]`<<<$1

Приймає введення як аргумент командного рядка, виводить в STDOUT.

                      $#1             get the length of the input string
                    $[   **.5]        take it to the .5 power (sqrt)
                 <<<                  and pass the result to
       sed s/.$//                     sed, which removes the last character
                                      this is because sqrt(9) is 3. instead of 3
     -`                       `       give the result as a command line flag to
fold                                  the fold util, which wraps at nth column
                               <<<$1  pass the input as input to fold

05AB1E , 8 6 байт

Завдяки @quartata за те, що він повідомив мені про функцію квадратного кореня

Dgtô¶ý

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

Пояснення

D     Implicit input. Duplicate
g     Number of elements
t     Square root
ô     Split into chunks of that length
¶     Push newline character
ý     Join list by newlines. Implicit display

Пітон, 94 75 71 65 63 байт

import re;lambda r:"\n".join(re.findall("."*int(len(r)**.5),r))

Стара версія:

lambda r:"\n".join(map("".join,zip(*[iter(r)]*int(len(r)**.5))))

CJam , 8 байт

l_,mQ/N*

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

Пояснення

l     e# Read line from input
_,    e# Duplicate. Get length 
mQ    e# Integer square root
/     e# Split into pieces of that size
N*    e# Join by newline. Implicitly display

Pyth, 8 байт

jcs@lQ2Q

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

Як це працює

    lQ     length of input
   @  2    square root
  s        floor
 c     Q   chop input into that many equal pieces
j          join on newline

Діалог APL, 10 байт

⊢⍴⍨2⍴.5*⍨≢

Пояснення:

         ≢   length of the argument   
     .5*⍨    square root 
   2⍴        reshape that to a length-2 vector
⊢⍴⍨          reshape the input by that vector

Тести:

      (⊢⍴⍨2⍴.5*⍨≢)'Hi, world'
Hi,
 wo
rld
      (⊢⍴⍨2⍴.5*⍨≢)'Hi, world! Hello'
Hi, 
worl
d! H
ello
      (⊢⍴⍨2⍴.5*⍨≢)'Lorem ipsum dolor sit amt'
Lorem
 ipsu
m dol
or si
t amt
      (⊢⍴⍨2⍴.5*⍨≢) 'H'
H

Чеддар, 27 байт (неконкурентоспроможний)

s->s.chunk(s.len**.5).vfuse

Я додав .chunkфункцію деякий час тому, але я видалив її при переході до нового формату stdlib і забув її знову додати. Чеддар має спеціального sqrtоператора, але **.5він коротший

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

Пояснення

s ->              // Function with argument s
    s.chunk(      // Chunk it into pieces of size...
      s.len ** .5 // Square root of length.
    ).vfuse       // Vertical-fuse. Join on newlines

Утиліти Bash + GNU, 25

fold -`dc -e${#1}vp`<<<$1

Не так відрізняється від відповіді @ Doorknob , але dcце коротший спосіб отримати квадратний корінь.

𝔼𝕊𝕄𝕚𝕟, 11 символів / 14 байт

ѨĊ(ï,√ ïꝈ⸩Ė⬮

Try it here (ES6 browsers only).

Створено за допомогою цього коду (запустіть у консолі браузера інтерпретатора):

c.value=`Ѩ${alias(_,'chunk')}(ï,√ ïꝈ⸩${alias(Array.prototype,'mjoin')}⬮`

Brainfuck, 83 байти

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

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

Тут використовується та сама ідея, що і у Leaky Nun's відповіді . Він попросив допомогти в гольфі в чаті, потім запропонував мені додати це як нову відповідь. (Насправді те, що я писав у чаті, було 84-байтним рішенням, дуже подібним до цього.)

Для порівняння, додатково > на початку потрібна версія для мозкових завдань, які не дозволяють негативні адреси пам'яті.

Як і очікувалося, це знаходить довжину вводу, потім бере квадратний корінь, після чого друкує рядки відповідно. Він використовує ідеальні квадрати, які є частковими сумами 1 + 3 + 5 ....

Мозг-Флак , 110 96 байт

([]<>){({}{}(({}[()])))}{}{({}()<(({})<{({}()<<>({}<>)>)}{}((()()()()()){})>)>)}{}{}{({}<>)<>}<>

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

Другий розчин, 96 байт

(([]<>)<{({}({})({}[()]))}{}>){({}(({})<{({}()<<>({}<>)>)}{}((()()()()()){})>))}{}{}{({}<>)<>}<>

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

Пояснення

Тут я пояснюю перше рішення, обидва мають однакову довжину, але мені подобається перше, оскільки воно крутіше і використовує деякі приємні хитрощі.

Найважливіша частина коду - це змінена функція квадратного кореня, про яку я писав деякий час тому. Оригінальна версія була

{({}[({})({}())])}{}

І це працює, але ми насправді хочемо дві копії негативного квадратного кореня. Чому? Нам потрібні дві копії, оскільки ми пробираємося через рядок на двох рівнях, один для створення рядків і один для підрахунку кількості рядків. Ми хочемо, щоб це було негативним, оскільки циклічне використання негативів дешевше.

Щоб зробити цей негатив, ми рухаємось [...]так, щоб це виглядало так

{({}({})({}[()]))}{}

Щоб зробити дві копії, ми змінюємось, коли трапляються попси

{({}{}(({}[()])))}{}

Тепер, коли у нас є цей біт, ми можемо скласти його разом з висотою стека, щоб отримати перший фрагмент коду, який нам потрібен.

([]<>){({}{}(({}[()])))}{}

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

Тепер будуємо основну петлю

{({}()<(({})<{({}()<<>({}<>)>)}{}((()()()()()){})>)>)}{}{}

Це досить прямо вперед, ми обводимо n разів кожен раз, пересуваючи n елементів, і обмежуємо їх новим рядком (ASCII 10).

Після того, як цикл виконаний, нам потрібно змінити порядок нашого виводу, щоб ми просто застосували стандартну зворотну конструкцію.

{({}<>)<>}<>

PHP, 51 байт

<?=join("
",str_split($x=$argv[1],strlen($x)**.5));

Perl 6 , 38 байт

$_=get;.put for .comb: .chars.sqrt.Int

Пояснення:

$_ = get;          # get a single line of input


$_.put             # print with trailing newline

for                # every one of the following:

$_.comb:           # the input split into

$_.chars.sqrt.Int  # chunks of the appropriate size

Чеддар, 57 байт

n->(m->(|>m).map(i->n.slice(i*m,i*m+m)).vfuse)(n.len**.5)

Оскільки змінні зламані, мені доведеться передати змінні через лямбда-додаток.

Крім того, виявляється, що навіть якби змінні працювали, користуватися лямбда-програмою все одно було б коротше.

Використання

cheddar> (n->(m->(|>m).map(i->n.slice(i*m,i*m+m)).vfuse)(n.len**.5))("abcd")
"ab
cd"

Пайк, 5 байт

l,fnJ

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

Java 1.7, 110 байт

void f(String s){for(int i=-1,k=(int)Math.sqrt(s.length());++i<k;)System.out.println(s.substring(i*k,i*k+k));}

Спробуй це! (Ідеон)

Я спробував інший підхід з функцією, що повертає результат у вигляді рядка, але просто потрібно оголосити рядок, і оператор return вже дорожче (кількість байтів), ніж оператор print.

Треба любити багатослівність Java ... :)

R , 59 54 байти

function(s)write(el(strsplit(s,'')),1,nchar(s)^.5,,'')

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

Друкується із заднім рядком. Дивно короткий, враховуючи, як погано R обробляє струни.

PowerShell, 56 58 61 байт

param($i)$i-replace".{$([Math]::Sqrt($i.Length))}",'$&
'

Рубін -p , 40 33 30 байт

-7 байт від @Jordan.

gsub(/#{?.*~/$/**0.5}/){$&+$/}

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

Опукла , 7 байт

_,mQ/N*

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

Кумедний факт:

_,mQ/\* також працює над TIO завдяки тому, як це працює.

Як я забув зробити 1-char квадратний корінь op?