このチャットミニチャレンジに触発されました。

入力として文字列（ASCII印刷可能文字のみ）が与えられた場合、「雨」の文字を含む文字列を出力します。各文字は、下向きのランダムな行数（0文字列の長さと長さがランダムで、それぞれの確率がゼロではない）で、列ごとに1文字のみである必要があります。可能性のあるすべての出力は、発生する可能性がゼロ以外である必要があります。

それは少し混乱するかもしれないので、ここに例があります（そのCMCから引用）：

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

Hが1つ下のスペース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,,"")}

オンラインでお試しください！

文字列として入力。stdoutに書き込みます。

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}

オンラインでお試しください！

1Dを入力し、文字の2D配列を出力します。

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バイト（ルールの側でエラー）thx to @ ASCII-only！

炭、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ãΩúζ»

文字のリストとして入力します。

オンラインでお試しください。

新しいバージョンでは..の€S前に明示的に指定する必要があるため、どちらも05AB1Eのレガシーバージョンを使用しますζ。

説明：

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

これは、or fを受け入れ、a を返す関数を定義しますStringVector{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 by @DomHastings

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

オンラインでお試しください！

PowerShellの、108の 102 98バイト

^{mazzyのおかげで-4バイト}

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

オンラインでお試しください！

基本的に1..length文字列を2回繰り返します。1 回は各文字のランダムな行の位置を取得し、2回目はこれらのインデックスを使用して各行を実際に構築します。1回のスイープでそれを行う方法を考え出すことが、大きなバイトの節約になる場所です。

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

ランダムな選択肢のリストを作成してから、各ランダムな選択肢で指定されたインデックスを除くすべての場所に空白のある列のリストを作成します。列は行に転置され、その間に改行が印刷されます。

オンラインでお試しください！