Zainspirowany tym mini-wyzwaniem na czacie.

Biorąc pod uwagę ciąg znaków (tylko znaki drukowalne ASCII), wypisz ciąg znaków z literami „pada” w dół. Każda litera musi być losową liczbą linii w dół (losowo między0 i długością łańcucha, z których każda ma niezerowe prawdopodobieństwo) i tylko jeden znak na kolumnę. Wszystkie możliwe wyjścia muszą ponownie mieć niezerowe prawdopodobieństwo wystąpienia.

To może być trochę mylące, więc oto przykład (wzięty z tej CMC):

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

Zwróć uwagę, że wartość Hjest o jedno miejsce w dół, dwartość o zero w dół, a llowszystko się zgadza. rJest najdalej w dół, co 9, ale nadal jest mniejsza niż długość łańcucha z dala od góry. To tylko jeden przykład, istnieje wiele innych możliwości wprowadzania danych Hello World.

Inne przykłady mogą być:

test

t
 e
  s
   t


PP&CG

  & G
 P

P  C

• Dane wejściowe i wyjściowe można podać dowolną dogodną metodą .
• Dane wejściowe są gwarantowane jako niepuste (tzn. Nigdy nie otrzymasz ""jako danych wejściowych).
• Możesz wydrukować go do STDOUT lub zwrócić jako wynik funkcji.
• Dopuszczalny jest pełny program lub funkcja.
• Dopuszczalna jest dowolna ilość obcych białych znaków, pod warunkiem, że znaki odpowiednio ustawią się w linii (np. Nie krępuj się padać jak prostokąt).
• Standardowe luki są zabronione.
• To jest golf golfowy, więc obowiązują wszystkie zwykłe zasady gry w golfa, a wygrywa najkrótszy kod (w bajtach).

R 104 bajty

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

Wypróbuj online!

Wprowadź jako ciąg; pisze na standardowe wyjście.

JavaScript (ES6), 72 bajty

Pobiera dane wejściowe jako listę znaków. Zwraca macierz znaków.

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

Wypróbuj online!

Pyth - 9 bajtów

Wyświetla listę linii.

.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

Wypróbuj online .

J , 30 19 bajtów

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

Wypróbuj online!

Japt , 8 bajtów

-1 bajt z @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

Wypróbuj online!

APL (Dyalog Unicode) , 16 bajtów ^SBCS

Anonimowa ukryta funkcja prefiksu

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

≢ długość sznurka

1+ jeden do tego dodany

≢⍴ kopie tego „długości”

∘? losowe liczby całkowite z zakresu 1… te, a następnie…

∘- negować, a następnie…

⊢↑¨⍨ zabierz więcej niż wiele elementów z każdej postaci, dopełniając po lewej stronie spacjami

∘↑ wymieszaj listę ciągów w macierz, dopełnianie ze spacjami po prawej stronie

⍉ transponować

Wypróbuj online!

Japt , 8 bajtów

yÈùUÊö Ä

Spróbuj

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

Galaretka , 10 bajtów

³LŻX⁶x;)z⁶

Wypróbuj 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 bajtów

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

Wypróbuj online!

Wejścia 1D, wyjście 2D tablica znaków.

PHP , 88 bajtów

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

Wypróbuj online!

Lub 94 bajty przy użyciu kryptograficznej funkcji losowych liczb całkowitych PHP .

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

Wypróbuj online!

Wejście od STDIN, wyjście do STDOUT. Uruchom jako:

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

 e      r d

H      o   

         l 


    o 

-1 bajt (pusty ciąg zamiast spacji) i +1 bajt (błąd po stronie reguł) dzięki do @ ASCII!

Węgiel drzewny , 10 9 bajtów

↑Ｅθ◧ι⊕‽Ｌθ

Wypróbuj online! Link jest do pełnej wersji kodu. Edycja: Zapisano 1 bajt dzięki tylko @ ASCII. Wyjaśnienie:

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

Jak wskazuje tylko ASCII, możesz losowo przesuwać litery w górę zamiast w dół, aby uzyskać ten sam efekt (z tym wyjątkiem, że na dole może być więcej białych znaków zamiast na górze). Drukowanie tablicy znaków w górę jest równoznaczne z normalnym wydrukowaniem łańcucha, więc dopełnienie następnie po prostu przesuwa każdy znak w pionie o losową wartość.

05AB1E (starsza wersja) , 9 bajtów

εIgÝΩú}ζ»

Wprowadź jako ciąg znaków lub listę znaków (oba są w porządku).

Wypróbuj online.

Znacznie wolniejsza 9-bajtowa alternatywa:

gDÝsãΩúζ»

Wprowadź jako listę znaków.

Wypróbuj online.

Oba używają starszej wersji 05AB1E, ponieważ nowa wersja wymaga jawnego €Sprzedζ ..

Wyjaśnienie:

ε       # 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 bajtów

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

Wypróbuj online!

Julia, 69 bajtów

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

To określa funkcję f, która akceptuje Stringlub Vector{Char}i zwracaMatrix{Char} .

Nie golfowany:

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

Przykład:

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

Z pewnością mogłoby być lepiej; moje umiejętności gry w golfa są dość zardzewiałe.

Wypróbuj online!

Perl 5 -F , 50 49 bajtów

-1 przez @DomHastings

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

Wypróbuj online!

PowerShell , 108 102 98 bajtów

^{-4 bajty dzięki mazzy}

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

Wypróbuj online!

Zasadniczo iteruje 1..lengthciąg dwa razy, raz, aby uzyskać losowe lokalizacje linii dla każdego znaku, i drugi raz, aby faktycznie zbudować każdą linię przy użyciu tych wskaźników. Dowiedzenie się, jak to zrobić za jednym zamachem, jest tam, gdzie są oszczędności dużych bajtów.

SmileBASIC 3, 62 bajty

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

Czerwony , 84 bajtów

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

Wypróbuj online!

Python - 92 bajty

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

K (oK) , 20 bajtów

Rozwiązanie:

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

Wypróbuj online!

Wyjaśnienie:

+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 bajtów

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

Wypróbuj online!

Python 3, 208 bajtów

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

Tworzy listę losowych wyborów, a następnie tworzy listę kolumn z pustą przestrzenią wszędzie oprócz indeksu określonego przez każdy losowy wybór. Kolumny są transponowane na rzędy i drukowane z nowymi liniami między nimi.

Wypróbuj online!