Lấy cảm hứng từ này mini-thách thức chat.

Đưa ra một chuỗi làm đầu vào (chỉ các ký tự có thể in ASCII), xuất chuỗi đó với các chữ cái "mưa" xuống. Mỗi chữ cái phải là một số dòng ngẫu nhiên đi xuống (ngẫu nhiên giữa 0và độ dài của chuỗi, mỗi dòng có xác suất khác không) và chỉ có một ký tự trên mỗi cột. Tất cả các đầu ra có thể một lần nữa phải có xác suất xảy ra khác không.

Điều đó có thể hơi khó hiểu, vì vậy đây là một ví dụ (lấy từ CMC đó):

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

Lưu ý cách Hmột khoảng trống xuống, dkhông xuống và llotất cả xảy ra để xếp hàng. Cái rxa nhất xuống, tại 9, nhưng vẫn nhỏ hơn độ dài chuỗi cách xa đỉnh. Đây chỉ là một ví dụ, có hàng tá khả năng khác cho đầu vào Hello World.

Các ví dụ khác có thể là:

test

t
 e
  s
   t


PP&CG

  & G
 P

P  C

• Đầu vào và đầu ra có thể được đưa ra bởi bất kỳ phương pháp thuận tiện .
• Đầu vào được đảm bảo không trống (nghĩa là bạn sẽ không bao giờ nhận ""làm đầu vào).
• Bạn có thể in nó sang STDOUT hoặc trả lại dưới dạng kết quả chức năng.
• Một chương trình đầy đủ hoặc một chức năng được chấp nhận.
• Bất kỳ số lượng khoảng trắng bên ngoài nào cũng được chấp nhận, miễn là các ký tự xếp hàng một cách thích hợp (ví dụ: hãy thoải mái để đệm như một hình chữ nhật).
• Sơ hở tiêu chuẩn bị cấm.
• Đây là môn đánh gôn, vì vậy tất cả các quy tắc chơi gôn thông thường đều được áp dụng và mã ngắn nhất (tính bằng byte) sẽ thắng.

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,,"")}

Hãy thử trực tuyến!

Nhập dưới dạng chuỗi; viết lên thiết bị xuất chuẩn.

JavaScript (ES6), 72 byte

Đưa đầu vào dưới dạng danh sách các ký tự. Trả về một ma trận các ký tự.

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

Hãy thử trực tuyến!

Pyth - 9 byte

Danh sách đầu ra của dòng.

.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

Hãy thử trực tuyến .

J , 30 19 byte

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

Hãy thử trực tuyến!

Japt , 8 byte

-1 byte từ @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

Hãy thử trực tuyến!

APL (Dyalog Unicode) , 16 byte ^SBCS

Chức năng tiền tố ẩn danh

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

≢ độ dài của chuỗi

1+ thêm vào đó

≢⍴ "chiều dài" bản sao đó

∘? số nguyên ngẫu nhiên trong phạm vi 1 số đó, và sau đó

∘- phủ nhận, và sau đó

⊢↑¨⍨ lấy nhiều yếu tố từ mỗi nhân vật, đệm bên trái bằng khoảng trắng

∘↑ trộn danh sách các chuỗi thành ma trận, đệm với khoảng trắng ở bên phải

⍉ hoán vị

Hãy thử trực tuyến!

Japt , 8 byte

yÈùUÊö Ä

Thử nó

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

Thạch , 10 byte

³LŻX⁶x;)z⁶

Hãy thử trực tuyến!

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

Hãy thử trực tuyến!

Nhập 1D, xuất ra mảng 2D của các ký tự.

PHP , 88 byte

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

Hãy thử trực tuyến!

Hoặc 94 byte sử dụng hàm số nguyên ngẫu nhiên mật mã của PHP .

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

Hãy thử trực tuyến!

Đầu vào từ STDIN, đầu ra đến STDOUT. Chạy như:

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

 e      r d

H      o   

         l 


    o 

-1 byte (chuỗi trống thay vì khoảng trắng) và +1 byte (lỗi bên cạnh quy tắc) chỉ đến @ ASCII!

Than , 10 9 byte

↑Ｅθ◧ι⊕‽Ｌθ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Chỉnh sửa: Đã lưu 1 byte nhờ chỉ @ ASCII. Giải trình:

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

Vì chỉ ASCII chỉ ra, bạn có thể di chuyển các chữ cái ngẫu nhiên lên thay vì xuống để có cùng hiệu ứng (ngoại trừ việc có thể có thêm khoảng trắng ở phía dưới thay vì trên cùng). In một mảng các ký tự lên trên tương đương với in một chuỗi thông thường, do đó, phần đệm sau đó chỉ bù đắp cho mỗi ký tự theo chiều dọc một lượng ngẫu nhiên.

05AB1E (di sản) , 9 byte

εIgÝΩú}ζ»

Nhập dưới dạng chuỗi hoặc danh sách các ký tự (hoặc là tốt).

Hãy thử trực tuyến.

Thay thế 9 byte chậm hơn nhiều:

gDÝsãΩúζ»

Nhập dưới dạng danh sách các ký tự.

Hãy thử trực tuyến.

Cả hai đều sử dụng phiên bản kế thừa của 05AB1E, vì phiên bản mới yêu cầu rõ ràng €Strước ζ..

Giải trình:

ε       # 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;}

Hãy thử trực tuyến!

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)

Điều này xác định một hàm fchấp nhận một Stringhoặc Vector{Char}và trả về a Matrix{Char}.

Ung dung:

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

Thí dụ:

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

Điều này chắc chắn có thể tốt hơn; kỹ năng chơi gôn của tôi khá gỉ.

Hãy thử trực tuyến!

Perl 5 -F , 50 49 byte

-1 bởi @DomHastings

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

Hãy thử trực tuyến!

PowerShell , 108 102 98 byte

^{-4 byte nhờ mazzy}

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

Hãy thử trực tuyến!

Về cơ bản lặp lại 1..lengthchuỗi hai lần, một lần để có được vị trí dòng ngẫu nhiên cho mỗi ký tự và lần thứ hai để thực sự xây dựng mỗi dòng bằng cách sử dụng các chỉ số đó. Tìm hiểu làm thế nào để thực hiện nó trong một lần quét là nơi tiết kiệm byte lớn.

SmileBASIC 3, 62 byte

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

Màu đỏ , 84 byte

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

Hãy thử trực tuyến!

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

Dung dịch:

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

Hãy thử trực tuyến!

Giải trình:

+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 bytes

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

Try it online!

Python 3, 208 bytes

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]]))

Creates a list of random choices, then makes a list of columns with blank space everywhere except at the index specified by each random choice. The columns are transposed into rows and printed out with newlines between them.

Try it online!