Terinspirasi oleh ini chatting mini-tantangan.

Diberikan string sebagai input (hanya karakter ASCII yang dapat dicetak), output string dengan huruf "hujan" ke bawah. Setiap huruf harus berupa jumlah acak baris ke bawah (acak antara 0dan panjang string, masing-masing memiliki probabilitas nol), dan hanya satu karakter per kolom. Semua output yang mungkin harus kembali memiliki probabilitas yang tidak nol terjadi.

Itu mungkin sedikit membingungkan, jadi inilah contohnya (diambil dari CMC itu):

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

Perhatikan bagaimana Hsatu spasi di bawah, dnol di bawah, dan llosemuanya terjadi untuk berbaris. Ini radalah yang terjauh ke bawah, pada 9, tetapi masih kurang dari panjang tali dari atas. Ini hanya satu contoh, ada puluhan kemungkinan input lainnya Hello World.

Contoh lain dapat berupa:

test

t
 e
  s
   t


PP&CG

  & G
 P

P  C

• Input dan output dapat diberikan dengan metode apa pun yang mudah .
• Input dijamin non-kosong (yaitu, Anda tidak akan pernah menerima ""sebagai input).
• Anda dapat mencetaknya ke STDOUT atau mengembalikannya sebagai hasil fungsi.
• Program lengkap atau fungsi dapat diterima.
• Berapapun ruang kosong ekstranus dapat diterima, asalkan karakternya berbaris dengan benar (mis., Merasa bebas untuk mengisi sebagai persegi panjang).
• Celah standar dilarang.
• Ini adalah kode-golf sehingga semua aturan golf biasa berlaku, dan kode terpendek (dalam byte) menang.

R , 104 byte

function(s){m=matrix(" ",l<-nchar(s),l)
m[cbind(1:l,sample(l,l,T))]=el(strsplit(s,""))
write(m,1,l,,"")}

Cobalah online!

Input sebagai string; menulis ke stdout.

JavaScript (ES6), 72 byte

Mengambil input sebagai daftar karakter. Mengembalikan matriks karakter.

a=>a.map((_,y)=>a.map((c,x)=>Math.random()<.5|!a[y+1]?(a[x]=' ',c):' '))

Cobalah online!

Pyth - 9 byte

Output daftar garis.

.tm+*;OlQ

 .t                       Transpose, padding with spaces
  m      (Q implicit)     Map over input
   +    (d implicit)      Concatenate to loop var
    *                     String repeat
     ;                    This refers to the var replaced by loop var, which is d=" "
     O                    Random number less than
      lQ                  Length of input

Cobalah online .

J , 30 19 byte

|:@,.]{.~"+_2-#?@##

Cobalah online!

Japt , 8 byte

-1 byte dari @Shaggy

y_iUÊö ç

y_iUÊö ç        Full Program. Implicit input U
y_              transpose and map each row in U (Call it X)
  i             Insert at the beginning of X:
       ç        " " repeated ↓ many times
   UÊö          random integer in [0, length of U] 
                implicit transpose back and output

Cobalah online!

APL (Dyalog Unicode) , 16 byte ^SBCS

Fungsi awalan diam-diam anonim

⍉∘↑⊢↑¨⍨∘-∘?≢⍴1+≢

≢ panjang tali

1+ satu ditambahkan ke itu

≢⍴ "panjang" salinan itu

∘? bilangan bulat acak di kisaran 1 ... itu, dan kemudian ...

∘- negasikan, lalu ...

⊢↑¨⍨ ambil dari banyak elemen dari masing-masing karakter, padding di sebelah kiri dengan spasi

∘↑ campur daftar string ke dalam matriks, padding dengan spasi di sebelah kanan

⍉ mengubah urutan

Cobalah online!

Japt , 8 byte

yÈùUÊö Ä

Cobalah

yÈùUÊö Ä     :Implicit input of string U
y            :Transpose
 È           :Pass each column through the following function and transpose back
  ù          :  Left pad with spaces to length
   UÊ        :    Length of U
     ö       :    Random number in the range [0,UÊ)
       Ä     :    Plus 1

Jelly , 10 byte

³LŻX⁶x;)z⁶

Cobalah online!

      )    | For each input character
³L         | Length of original input
  Ż        | 0..length
   X       | Random number from that list
    ⁶x     | That number of spaces
       ;   | Concatenate to the character
        z⁶ | Finally transpose with space as filler

Ruby , 59 57 55 byte

->a{a.map{|c|s=[' ']*z=a.size;s[rand z]=c;s}.transpose}

Cobalah online!

Input 1D, menghasilkan array karakter 2D.

PHP , 88 byte

for($o='';$i<$l=strlen($argn);$o[$i+$l*rand(0,$l)]=$argn[$i++]);echo chunk_split($o,$l);

Cobalah online!

Atau 94 byte menggunakan fungsi integer acak kriptografis PHP .

for($o='';$i<$l=strlen($argn);$o[$i+$l*random_int(0,$l)]=$argn[$i++]);echo chunk_split($o,$l);

Cobalah online!

Masukan dari STDIN, keluaran ke STDOUT. Jalankan sebagai:

$ echo Hello World|php -nF rain.php
   l  W    
  l        

 e      r d

H      o   

         l 


    o 

-1 byte (string kosong sebagai ganti spasi) dan +1 byte (err di sisi aturan) thx ke @ ASCII-only!

Arang , 10 9 byte

↑Ｅθ◧ι⊕‽Ｌθ

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Sunting: Disimpan 1 byte berkat hanya @ ASCII. Penjelasan:

  θ         Input string
 Ｅ          Map over characters
        θ   Input string
       Ｌ    Length
      ‽     Random value
     ⊕      Incremented
    ι       Current character
   ◧        Padded to length
↑           Print rotated

Seperti yang ditunjukkan oleh ASCII saja, Anda dapat memindahkan huruf secara acak ke atas alih-alih ke bawah untuk efek yang sama (kecuali bahwa mungkin ada ruang putih ekstra di bagian bawah daripada bagian atas). Mencetak array karakter ke atas sama dengan mencetak string secara normal, jadi padding kemudian mengimbangi setiap karakter secara vertikal dengan jumlah acak.

05AB1E (warisan) , 9 byte

εIgÝΩú}ζ»

Masukan sebagai string atau daftar karakter (baik-baik saja).

Cobalah online.

Alternatif 9-byte yang lebih lambat:

gDÝsãΩúζ»

Masukan sebagai daftar karakter.

Cobalah online.

Keduanya menggunakan versi lawas 05AB1E, karena versi baru memerlukan eksplisit €Ssebelumζ ..

Penjelasan:

ε       # Map each character in the (implicit) input to:
 Ig     #  Take the length of the input
   Ý    #  Create a list in the range [0, input-length]
    Ω   #  Pop and push a random integer from this list
     ú  #  Pad the current character with that many leading spaces
}ζ      # After the map: zip/transpose; swapping rows/columns (with space as default filler)
  »     # Then join all strings by newlines (and it output implicitly as result)

g          # Get the length of the (implicit) input-list
 D         # Duplicate this length
  Ý        # Create a list in the range [0, input-length]
   sã      # Take the cartesian product of this list that many times
     Ω     # Pop and push a random list from this list of lists of integers
      ú    # Pad the characters in the (implicit) input-list with that many spaces
       ζ   # Zip/transpose; swapping rows/columns (with space as default filler)
        »  # Then join all strings by newlines (and it output implicitly as result)

C (gcc) , 131 byte

f(char*s){int l=strlen(s),R[l],i=l,j;for(srand(time(0));i--;)R[i]=rand()%l;for(;++i<l*l;printf("\n%c"+!!j,i/l^R[j]?32:s[j]))j=i%l;}

Cobalah online!

Julia, 69 byte

f(s)=(n=length(s);z=fill(' ',n,n);for i=1:n z[rand(1:n),i]=s[i]end;z)

Ini mendefinisikan fungsi fyang menerima a Stringdan Vector{Char}dan mengembalikan aMatrix{Char} .

Tidak Disatukan:

function f(s)
    n = length(s)
    z = fill(' ', n, n)  # an n×n matrix of spaces
    for i = 1:n
        # set a random entry in the ith column to the ith character in s
        z[rand(1:n),i] = s[i] 
    end
    z
end

Contoh:

julia> f("test")
4×4 Array{Char,2}:
 't'  ' '  ' '  ' '
 ' '  ' '  ' '  ' '
 ' '  'e'  ' '  't'
 ' '  ' '  's'  ' '

Ini pasti bisa lebih baik; keterampilan golf saya cukup berkarat.

Cobalah online!

Perl 5 -F , 50 49 byte

-1 oleh @DomHastings

map$;[rand@F][$i++]=$_,@F;say map$_||' ',@$_ for@

Cobalah online!

PowerShell , 108 102 98 byte

^{-4 byte berkat mazzy}

$a=1..($z=($y=$args|% t*y).count)|%{random $z}
1..$z|%{-join($y|%{" $_"[$a[$i++%$z]-eq+$r]});$r++}

Cobalah online!

Pada dasarnya iterasi 1..lengthstring dua kali, sekali untuk mendapatkan lokasi garis acak untuk setiap karakter, dan kedua kalinya untuk benar-benar membangun setiap baris menggunakan indeks tersebut. Mencari tahu bagaimana melakukannya dalam satu sapuan adalah tempat penghematan byte besar.

SmileBASIC 3, 62 byte

LINPUT T$L=LEN(T$)CLS
FOR I=0TO L-1LOCATE,RND(L+1)?T$[I];
NEXT

Merah , 84 byte

func[s][foreach n random collect[repeat n length? s[keep n]][print pad/left s/:n n]]

Cobalah online!

Python - 92 byte

import random
lambda s:map(None,*[(random.randrange(len(s))*' '+c).ljust(len(s))for c in s])

K (oK) , 20 byte

Larutan:

+c$(-1-c?c:#x)$++x:

Cobalah online!

Penjelasan:

+c$(-1-c?c:#x)$++x: / the solution
                 x: / store input as x
                +   / flip (enlist)
               +    / flip again (break into chars)
              $     / pad (each) character
   (         )      / do this together
           #x       / length of x
         c:         / save as c
      -c?           / choose (?) c times from c
    -1              / subtract from -1
 c$                 / pad to length of x
+                   / flip

Python 3 , 140 131 byte

from random import*
def f(s):
	e=range(len(s))
	p=[choice(e)for t in s]
	for r in e:print(''.join((r-p[i]and' 'or s[i]for i in e)))

Cobalah online!

Python 3, 208 byte

import random as r;x=input();R=range(len(x));c=[r.choice(R) for i in R];y=[' '*c[i]+x[i]+' '*(len(x)-c[i]) for i in R];R=range(len(y));print('\n'.join([''.join(r) for r in [[y[i][j] for i in R] for j in R]]))

Membuat daftar pilihan acak, lalu membuat daftar kolom dengan ruang kosong di mana-mana kecuali pada indeks yang ditentukan oleh setiap pilihan acak. Kolom ditransformasikan ke dalam baris dan dicetak dengan baris baru di antara mereka.

Cobalah online!