Esinlenen bu sohbet mini meydan.

Giriş olarak bir dize verildiğinde (yalnızca ASCII yazdırılabilir karakterleri), dizgiyi "yağmur" harfleri aşağıya gelecek şekilde yazdırın. Her harf aşağıya doğru rasgele bir satır sayısı ( 0her biri sıfır olmayan bir olasılık olan dizginin uzunluğu ile uzunluğu arasında rastgele ) ve sütun başına yalnızca bir karakter olmalıdır. Tüm olası çıkışlar tekrar sıfır olmayan bir oluşma olasılığına sahip olmalıdır.

Bu belki biraz kafa karıştırıcı, bu yüzden burada bir örnek (o CMC'den alınmış):

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

Nasıl Not Hbir boşluk aşağı, dsıfır aşağı olduğunu ve llotüm sıraya olur. En ruzağında, en altında 9, ama yine de üstten uzaktaki dize uzunluğundan daha az. Bu sadece bir örnek, giriş için onlarca başka olasılık var Hello World.

Diğer örnekler olabilir:

test

t
 e
  s
   t


PP&CG

  & G
 P

P  C

• Giriş ve çıkış herhangi bir uygun yöntemle verilebilir .
• Girişin boş olmadığı garantilidir (yani, ""giriş olarak asla almayacaksınız ).
• STDOUT'a yazdırabilir veya işlev sonucu olarak geri döndürebilirsiniz.
• Tam bir program veya bir işlev kabul edilebilir.
• Karakterler uygun bir şekilde hizalandığı sürece herhangi bir fazladan beyaz boşluk kabul edilebilir (örneğin, bir dikdörtgen gibi kaydırmaktan çekinmeyin).
• Standart boşluklar yasaktır.
• Bu kod-golf olduğundan, tüm normal golf kuralları geçerlidir ve en kısa kod (bayt cinsinden) kazanır.

R , 104 bayt

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

Çevrimiçi deneyin!

Dize olarak giriş; stdout'a yazar.

JavaScript (ES6), 72 bayt

Girdiyi karakter listesi olarak alır. Bir karakter matrisi döndürür.

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

Çevrimiçi deneyin!

Pyth - 9 bayt

Satır listesini çıkarır.

.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

Çevrimiçi deneyin .

J , 30 19 bayt

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

Çevrimiçi deneyin!

Japt , 8 bayt

@Shaggy'den -1 bayt

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

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 16 bayt ^SBCS

Anonim tacit önek işlevi

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

≢ dize uzunluğu

1+ buna bir tane eklendi

≢⍴ "uzunluk" kopyaları

∘? aralık 1'deki rasgele tamsayılar… bunlar ve sonra…

∘- olumsuzlayın ve sonra…

⊢↑¨⍨ Her karakterden bir çok eleman al, solda boşluk bırakarak boşluk bırak

∘↑ dizelerin listesini matriste karıştırın, sağdaki boşluklarla doldurun

⍉ devrik

Çevrimiçi deneyin!

Japt , 8 bayt

yÈùUÊö Ä

Dene

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

Jöle , 10 bayt

³LŻX⁶x;)z⁶

Çevrimiçi deneyin!

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

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

Çevrimiçi deneyin!

1D'ye giriş yapar, 2D karakter dizisini çıkarır.

PHP , 88 bayt

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

Çevrimiçi deneyin!

Veya PHP'nin şifreli rasgele tamsayılar işlevini kullanarak 94 bayt .

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

Çevrimiçi deneyin!

Girişinden STDINçıkışa STDOUT. Olarak çalıştırmak:

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

 e      r d

H      o   

         l 


    o 

-1 bayt (boşluk yerine boş dize) ve +1 bayt (kuralların yanında err) thx - @ ASCII-only!

Kömür , 10 9 bayt

↑Ｅθ◧ι⊕‽Ｌθ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı bir versiyonudur. Düzenleme: sadece @ ASCII-sayesinde 1 bayt kaydedildi. Açıklama:

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

Yalnızca ASCII'nin işaret ettiği gibi, aynı etki için harfleri aşağıya değil, rasgele yukarı taşıyabilirsiniz (yalnızca üstte değil altta fazladan beyaz boşluk olması dışında). Bir karakter dizisini yukarı doğru yazdırmak, normal olarak bir dize yazdırmaya eşdeğerdir, bu nedenle dolgu maddesi her karakteri rastgele bir miktarda dikey olarak kaydırır.

05AB1E (eski) , 9 bayt

εIgÝΩú}ζ»

Bir dize veya karakter listesi olarak girin (her ikisi de iyidir).

Çevrimiçi deneyin.

Çok daha yavaş 9 bayt alternatif:

gDÝsãΩúζ»

Bir karakter listesi olarak giriş yapın.

Çevrimiçi deneyin.

Her ikisi de 05AB1E'nin eski sürümünü kullanıyor, çünkü yeni sürüm daha €Sönce açık bir ifade gerektiriyor ζ.

Açıklama:

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

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

Çevrimiçi deneyin!

Julia, 69 bayt

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

Bu, fa'yı kabul eden Stringveya Vector{Char}a döndüren bir fonksiyonu tanımlar Matrix{Char}.

Ungolfed:

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

Örnek:

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

Bu kesinlikle daha iyi olabilirdi; golf becerilerim oldukça paslı.

Çevrimiçi deneyin!

Perl 5 -F , 50 49 bayt

-1 @DomHastings tarafından

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

Çevrimiçi deneyin!

PowerShell , 108 102 98 bayt

^{Mazzy sayesinde -4 bayt}

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

Çevrimiçi deneyin!

Temel olarak 1..length, her karakter için rasgele satır konumları elde etmek için dizgeyi iki kez yineler ve bu satırları kullanarak her satırı gerçekten oluşturmak için ikinci kez. Bir taramada nasıl yapılacağını bulmak, büyük bayt tasarruflarının olduğu yerdir.

SmileBASIC 3, 62 bayt

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

Kırmızı , 84 bayt

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

Çevrimiçi deneyin!

Python - 92 bayt

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

K (oK) , 20 bayt

Çözüm:

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

Çevrimiçi deneyin!

Açıklama:

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

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

Çevrimiçi deneyin!

Python 3, 208 bayt

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

Rastgele seçeneklerin bir listesini oluşturur, ardından her rastgele seçim tarafından belirtilen endeks dışında her yerde boş alan içeren bir sütun listesi yapar. Sütunlar satırlara çevrilir ve aralarında yeni satırlarla yazdırılır.

Çevrimiçi deneyin!