Tantangan

Diberikan string, output teks dalam bentuk kotak.

Anda bisa berasumsi bahwa teks akan selalu masuk dalam kotak , dan itu tidak akan pernah menjadi string kosong.

Anda juga dapat menganggap itu tidak akan pernah memiliki baris baru.

Contoh

Input:
Hi, world

Output:
Hi,
 wo
rld

Uji Kasus

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

Aturan

• Ini kode-golf , jadi jawaban tersingkat dalam byte menang! Tiebreaker adalah jawaban yang paling banyak dipilih.
• Celah standar dilarang.

Vim, 59, 57 , 48 byte / penekanan tombol

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

Karena V kompatibel dari belakang, Anda dapat mencobanya secara online!

Saya secara acak menerima suara positif pada jawaban ini, jadi saya melihatnya lagi. Keahlian vim-golf saya meningkat pesat selama 7 bulan terakhir, jadi saya melihat bahwa jawaban ini sangat buruk golf. Yang ini jauh lebih baik.

Brainfuck , 116 112 byte

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

Cobalah online!

Aman dalam rasa BF yang tidak menutupi sel dengan 256, tidak mendukung byte nol.

Hapus panah kanan awal jika rasa mendukung memori negatif untuk 4 byte yang disimpan.

Penjelasan

Program ini dibagi menjadi 3 tahap:

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

Tahap 1

Pada tahap ini, kami menempatkan semua karakter ke dalam kaset, sambil tetap menghitung jumlah karakter.

Ini adalah rekaman untuk input abcdefghisetelah rekaman ini:

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

The 009adalah menghitung.

Untuk setiap karakter, kami memindahkan nol pertama di sebelah kiri [<]dan kemudian menambahkan satu ke hitungan <<+>>>, dan kemudian pindah ke nol paling kanan [>]untuk bersiap-siap untuk karakter berikutnya.

Tahap 2

Tahap ini melakukan akar kuadrat dari panjang yang disimpan di sel kedua.

Itu terus mengurangi 1, 3, 5, 7, ...hingga jumlahnya mencapai nol, sambil tetap memeriksa jumlah iterasi.

Ini bekerja karena angka kuadrat dapat dinyatakan sebagai 1 + 3 + 5 + ....

Tahap 3

Menunjukkan akar kuadrat dari panjang yang ditemukan di atas sebagai n.

Tahap ini menampilkan nkarakter pada satu waktu, dan kemudian menampilkan baris baru, sampai rekaman itu dihapus.

Python 2, 55 byte

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

05AB1E , 5 byte

Dgtô«

Cobalah online!

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 byte

tnX^e!

Cobalah online!

Penjelasan

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

Jelly, 8 7 byte

sLƽ$j⁷

Menyimpan satu byte berkat @ Dennis .

Cobalah online.

Penjelasan

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 byte

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

44 byte di Firefox Nightly 43-46 saja ( **diperkenalkan beberapa waktu antara Firefox Nightly 42 dan 43 dan gsebagai parameter terpisah dihapus beberapa waktu antara Firefox Nightly 46 dan 47):

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

J, 9 byte

$~,~@%:@#

Ini adalah kait monadik pada string input:

$~ ,~@%:@#

Tine yang tepat adalah serangkaian komposisi:

,~ @ %: @ #

Kiri adalah kata kerja pembentukan, diaktifkan sedemikian rupa sehingga berfungsi dalam format kait.

Berikut adalah beberapa hasil antara:

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

Dalam kata kata:

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

C, 64 byte

Panggil f()dengan string ke kotak.

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

Cobalah di ideone .

Perl, 23 + 4 ( -pFbendera) = 27 byte

-2 byte terima kasih kepada @DomHastings
-1 byte terima kasih ke @DomHastings

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

Cobalah online!

Expanations : menghitung root kuadrat (sebut saja Suntuk penjelasan) dari ukuran input (akan selalu berupa integer) ( @Fdigunakan dalam konteks skalar, sehingga mengembalikan ukurannya), lalu tambahkan baris baru setelah setiap blok Skarakter.

zsh, 36 byte

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

Mengambil input sebagai argumen baris perintah, output ke 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 byte

Terima kasih kepada @quartata karena memberi tahu saya tentang fungsi akar kuadrat

Dgtô¶ý

Cobalah online!

Penjelasan

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

Python, 94 75 71 65 63 byte

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

Versi lama:

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

CJam , 8 byte

l_,mQ/N*

Cobalah online!

Penjelasan

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 byte

jcs@lQ2Q

Cobalah online

Bagaimana itu bekerja

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

Dyalog APL, 10 byte

⊢⍴⍨2⍴.5*⍨≢

Penjelasan:

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

Tes:

      (⊢⍴⍨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

Cheddar, 27 byte (tidak bersaing)

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

Saya menambahkan .chunkfungsi beberapa saat yang lalu, tetapi saya menghapusnya dalam transisi ke format stdlib baru dan lupa menambahkan kembali. Cheddar memiliki sqrtoperator khusus tetapi **.5lebih pendek

Cobalah online!

Penjelasan

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

Utilitas Bash + GNU, 25

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

Tidak jauh berbeda dengan jawaban @ Doorknob , tetapi dcmerupakan cara yang lebih pendek untuk mendapatkan akar kuadrat.

𝔼𝕊𝕄𝕚𝕟, 11 karakter / 14 byte

ѨĊ(ï,√ ïꝈ⸩Ė⬮

Try it here (ES6 browsers only).

Dihasilkan menggunakan kode ini (dijalankan di konsol peramban penerjemah):

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

Brainfuck, 83 byte

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

Cobalah online!

Ini menggunakan ide yang sama dengan jawaban Leaky Nun . Dia meminta bantuan bermain golf dalam obrolan, lalu menyarankan agar saya menambahkan ini sebagai jawaban baru. (Sebenarnya apa yang saya tulis dalam obrolan adalah solusi 84-byte yang sangat mirip dengan ini.)

Demi perbandingan, diperlukan ekstra >di awal untuk implementasi brainfuck yang tidak memungkinkan alamat memori negatif.

Seperti yang diharapkan, ini menemukan panjang input, kemudian mengambil akar kuadrat, lalu mencetak garis sesuai. Ini mengambil keuntungan dari kuadrat sempurna menjadi jumlah parsial 1 + 3 + 5 ....

Brain-Flak , 110 96 byte

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

Cobalah online!

Solusi kedua, 96 byte

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

Cobalah online!

Penjelasan

Di sini saya menjelaskan solusi pertama, keduanya sama panjang tetapi saya suka yang pertama karena lebih dingin dan menggunakan beberapa trik yang bagus.

Bagian terpenting dari kode adalah fungsi akar kuadrat yang dimodifikasi yang saya tulis beberapa waktu lalu. Versi aslinya adalah

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

Dan ini berhasil, tetapi kita sebenarnya menginginkan dua salinan dari akar kuadrat negatif. Mengapa? Kita membutuhkan dua salinan karena kita mengulang-ulang string pada dua level, satu untuk membuat garis dan satu untuk menghitung jumlah garis. Kami ingin menjadi negatif karena perulangan dengan negatif lebih murah.

Untuk membuat ini negatif, kami bergerak di sekitar [...]sehingga terlihat seperti ini

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

Untuk membuat dua salinan, kami mengubah kapan muncul

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

Sekarang kita memiliki bit itu, kita bisa menyatukannya dengan tumpukan tinggi untuk mendapatkan potongan kode pertama yang kita butuhkan.

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

Kami pindah ke offstack karena fungsi root kuadrat kami membutuhkan dua nol bebas untuk perhitungan, dan karena itu membuat barang sedikit lebih murah di masa depan dalam hal stack switching.

Sekarang kita membangun loop utama

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

Ini cukup lurus ke depan, kita loop n kali setiap kali memindahkan n item dan membatasi dengan baris baru (ASCII 10).

Setelah loop selesai, kita perlu membalik urutan output kita sehingga kita hanya menempel pada konstruksi terbalik standar.

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

PHP, 51 byte

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

Perl 6 , 38 byte

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

Penjelasan:

$_ = 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

Cheddar, 57 byte

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

Karena variabel rusak, saya harus meneruskan variabel melalui aplikasi lambda.

Juga, ternyata bahwa meskipun variabel berfungsi, masih akan lebih pendek untuk menggunakan aplikasi lambda.

Pemakaian

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

Pyke, 5 byte

l,fnJ

Coba di sini!

Java 1.7, 110 byte

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));}

Cobalah! (Ideone)

Saya mencoba pendekatan lain dengan fungsi mengembalikan hasil sebagai string, tetapi hanya harus mendeklarasikan string dan pernyataan kembali sudah lebih mahal (byte-count-wise) daripada pernyataan cetak.

Harus mencintai verbositas Java ... :)

R , 59 54 byte

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

Cobalah online!

Mencetak dengan baris baru yang tertinggal. Mengejutkan, mengingat betapa buruknya R menangani string.

PowerShell, 56 58 61 byte

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

Ruby -p , 40 33 30 byte

-7 byte dari @Jordan.

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

Cobalah online!

Cembung , 7 byte

_,mQ/N*

Cobalah online!

Fakta menyenangkan:

_,mQ/\* juga bekerja di TIO karena cara kerjanya.

Bagaimana saya lupa membuat op root 1-char square?