灵感来自这个聊天迷你挑战。

给定一个字符串作为输入（仅ASCII可打印字符），输出带有“ raining”字母的字符串。每个字母必须是向下随机排列的行（0字符串之间和字符串的长度之间的随机性，每个字符串具有非零的概率），并且每列只能包含一个字符。所有可能的输出必须再次具有非零的发生概率。

这可能有点令人困惑，所以这是一个示例（摘自该CMC）：

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

请注意，如何H向下减小一个空格，向下减小d零，然后llo所有行都对齐。该r最远下来，9但仍小于字符串长度从顶部离开。这只是一个例子，还有许多其他输入的可能性Hello World。

其他示例可能是：

test

t
 e
  s
   t


PP&CG

  & G
 P

P  C

• 输入和输出可以通过任何方便的方法给出。
• 输入保证为非空的（即，您将永远不会收到""输入）。
• 您可以将其打印到STDOUT或将其作为功能结果返回。
• 完整的程序或功能都是可以接受的。
• 只要字符适当排列（例如，随意填充为矩形），任何数量的外部空格都是可以接受的。
• 禁止出现标准漏洞。
• 这是代码高尔夫球，因此所有常见的高​​尔夫规则都适用，并且最短的代码（以字节为单位）获胜。

R，104字节

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

在线尝试！

输入为字符串；写入标准输出。

JavaScript（ES6），72个字节

将输入作为字符列表。返回字符矩阵。

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

在线尝试！

Pyth-9个字节

输出行列表。

.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

在线尝试。

J，30 19字节

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

在线尝试！

Japt，8字节

@Shaggy的-1个字节

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

在线尝试！

APL（Dyalog Unicode），16 字节^SBCS

匿名默认前缀功能

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

≢ 字符串长度

1+ 一个添加到那个

≢⍴ 那个的“长度”副本

∘? 范围为1…那些的随机整数，然后…

∘- 取反，然后…

⊢↑¨⍨ 从每个字符中获取多个元素，并在左侧填充空格

∘↑ 将字符串列表混合到矩阵中，右侧填充空格

⍉ 转置

在线尝试！

Japt，8字节

yÈùUÊö Ä

试试吧

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

果冻，10字节

³LŻX⁶x;)z⁶

在线尝试！

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

红宝石，59 57 55字节

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

在线尝试！

输入一维，输出二维字符数组。

PHP，88字节

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

在线尝试！

或使用PHP的加密随机整数函数获取94个字节。

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

在线尝试！

输入STDIN，输出到STDOUT。运行方式：

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

 e      r d

H      o   

         l 


    o 

-1字节（空字符串而不是空格）和+1字节（规则一侧的错误）仅@ASCII！

木炭，10 9字节

↑Ｅθ◧ι⊕‽Ｌθ

在线尝试！链接是详细版本的代码。编辑：由于仅@ASCII，节省了1个字节。说明：

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

如仅ASCII指出的那样，您可以将字母随机向上移动而不是向下移动，以达到相同的效果（除了底部（而不是顶部）可能有多余的空白）。向上打印一个字符数组等同于正常打印一个字符串，因此填充将仅使每个字符垂直偏移一个随机量。

05AB1E（旧版），9 个字节

εIgÝΩú}ζ»

输入为字符串或字符列表（两者都可以）。

在线尝试。

9字节替代方案慢得多：

gDÝsãΩúζ»

输入为字符列表。

在线尝试。

两者都使用05AB1E的旧版本，因为新版本需要€S在ζ.. 之前有一个明确的名称。

说明：

ε       # 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字节

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

在线尝试！

朱莉娅，69字节

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

这定义了一个f接受String或的函数Vector{Char}并返回一个Matrix{Char}。

取消高尔夫：

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

例：

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

这肯定会更好；我的高尔夫技巧非常生锈。

在线尝试！

Perl的5 -F，50 49个字节

-1通过@DomHastings

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

在线尝试！

PowerShell中，108个 102 98字节

^{-4字节感谢mazzy}

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

在线尝试！

基本上1..length，字符串重复两次，一次是为每个字符获取随机行位置，第二次是使用这些索引实际构建每行。一口搞清楚如何做到这一点是节省大量字节的地方。

SmileBASIC 3，62个字节

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

红色，84字节

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

在线尝试！

Python-92个字节

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

K（oK），20字节

解：

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

在线尝试！

说明：

+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字节

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

在线尝试！

Python 3，208个字节

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

创建一个随机选择的列表，然后创建一个列的列表，这些列的每个地方都有空白，除了每个随机选择指定的索引处。列被转换为行，并在它们之间以换行符打印出来。

在线尝试！