Inspiriert von dieser Chat-Mini-Challenge.

Wenn Sie eine Zeichenfolge als Eingabe angeben (nur ASCII-druckbare Zeichen), geben Sie die Zeichenfolge mit den Buchstaben "raining" aus. Jeder Buchstabe muss eine zufällige Anzahl von Zeilen nach unten sein (zufällig dazwischen)0 und die Länge der Zeichenfolge, jede mit einer Wahrscheinlichkeit ungleich Null) und nur ein Zeichen pro Spalte sein. Alle möglichen Ausgaben müssen wieder eine Wahrscheinlichkeit ungleich Null haben.

Das ist vielleicht ein bisschen verwirrend, also hier ein Beispiel (aus dieser CMC):

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

Beachten Sie, wie das Heine Leerzeichen nach unten ist, die dNull nach unten ist und lloalle zufällig in einer Reihe stehen. Das rist das am weitesten unten liegende, 9ist aber immer noch weniger als die Saitenlänge von der Spitze entfernt. Dies ist nur ein Beispiel, es gibt Dutzende anderer EingabemöglichkeitenHello World .

Andere Beispiele könnten sein:

test

t
 e
  s
   t


PP&CG

  & G
 P

P  C

• Die Ein- und Ausgabe kann auf jede bequeme Weise erfolgen .
• Die Eingabe ist garantiert nicht leer (dh Sie werden niemals ""als Eingabe empfangen ).
• Sie können es an STDOUT drucken oder als Funktionsergebnis zurückgeben.
• Es ist entweder ein vollständiges Programm oder eine Funktion zulässig.
• Beliebig viel fremdes Leerzeichen ist akzeptabel, solange die Zeichen richtig ausgerichtet sind (z. B. können Sie die Zeichen auch als Rechtecke auffüllen).
• Standardlücken sind verboten.
• Dies ist Codegolf, daher gelten alle üblichen Golfregeln, und der kürzeste Code (in Byte) gewinnt.

R , 104 Bytes

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

Probieren Sie es online!

Eingabe als String; schreibt an stdout

JavaScript (ES6), 72 Byte

Übernimmt die Eingabe als Liste von Zeichen. Gibt eine Zeichenmatrix zurück.

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

Probieren Sie es online!

Pyth - 9 Bytes

Gibt eine Liste von Zeilen aus.

.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

Probieren Sie es online aus .

J , 30 bis 19 Bytes

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

Probieren Sie es online!

Japt , 8 Bytes

-1 Byte von @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

Probieren Sie es online!

APL (Dyalog Unicode) , 16 Byte ^SBCS

Anonyme implizite Präfixfunktion

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

≢ Länge der Zeichenfolge

1+ man fügte hinzu

≢⍴ "Länge" Kopien davon

∘? zufällige ganze Zahlen im Bereich 1 ... diese und dann ...

∘- negieren und dann ...

⊢↑¨⍨ nimm als viele Elemente von jedem Charakter und fülle links mit Leerzeichen auf

∘↑ Mischen Sie die Liste der Zeichenfolgen in eine Matrix und füllen Sie sie mit Leerzeichen auf der rechten Seite

⍉ transponieren

Probieren Sie es online!

Japt , 8 Bytes

yÈùUÊö Ä

Versuch es

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

Gelee , 10 Bytes

³LŻX⁶x;)z⁶

Probieren Sie es 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 Bytes

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

Probieren Sie es online!

Eingabe von 1D, Ausgabe von 2D-Zeichenfeldern.

PHP , 88 Bytes

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

Probieren Sie es online!

Oder 94 Bytes mit den kryptografischen Zufallszahlen von PHP .

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

Probieren Sie es online!

Eingabe von STDIN, Ausgabe an STDOUT. Rennen wie:

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

 e      r d

H      o   

         l 


    o 

-1 Byte (leere Zeichenkette statt Leerzeichen) und +1 Byte (Fehler auf der Seite der Regeln) Danke an @ ASCII-only!

Kohle , 10 9 Bytes

↑Ｅθ◧ι⊕‽Ｌθ

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Bearbeiten: 1 Byte dank nur @ ASCII gespeichert. Erläuterung:

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

Wie nur in ASCII angegeben, können Sie die Buchstaben für den gleichen Effekt nach dem Zufallsprinzip nach oben statt nach unten verschieben (mit der Ausnahme, dass möglicherweise unten und nicht oben ein zusätzlicher Leerraum vorhanden ist). Das Drucken eines Arrays von Zeichen nach oben entspricht dem normalen Drucken einer Zeichenfolge, sodass der Abstand jedes Zeichen nur um einen zufälligen Betrag vertikal versetzt.

05AB1E (Legacy) , 9 Byte

εIgÝΩú}ζ»

Eingabe als Zeichenfolge oder Liste von Zeichen (entweder ist in Ordnung).

Probieren Sie es online aus.

Viel langsamere 9-Byte-Alternative:

gDÝsãΩúζ»

Eingabe als Liste von Zeichen.

Probieren Sie es online aus.

Beide verwenden die Legacy - Version von 05AB1E, da die neue Version explizit erfordert , €Sbevor die ζ..

Erläuterung:

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

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

Probieren Sie es online!

Julia, 69 Bytes

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

Dies definiert eine Funktion f, die ein Stringoder akzeptiert Vector{Char}und ein zurückgibt 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

Beispiel:

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

Das könnte sicherlich besser sein; Meine Golffähigkeiten sind ziemlich rostig.

Probieren Sie es online!

Perl 5 -F , 50 49 Bytes

-1 von @DomHastings

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

Probieren Sie es online!

PowerShell , 108 102 98 Byte

^{-4 Bytes dank mazzy}

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

Probieren Sie es online!

Grundsätzlich wird 1..lengthdie Zeichenfolge zweimal wiederholt, einmal, um zufällige Zeilenpositionen für jedes Zeichen zu ermitteln, und ein zweites Mal, um jede Zeile mithilfe dieser Indizes zu erstellen. In einem Durchgang herauszufinden, wie es geht, ist die große Byte-Einsparung.

SmileBASIC 3, 62 Bytes

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

Rot , 84 Bytes

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

Probieren Sie es online!

Python - 92 Bytes

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

K (ok) , 20 Bytes

Lösung:

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

Probieren Sie es online!

Erläuterung:

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

Probieren Sie es 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]]))

Erstellt eine Liste mit zufälligen Auswahlen und erstellt dann überall eine Liste mit Spalten mit Leerzeichen, außer an dem von jeder zufälligen Auswahl angegebenen Index. Die Spalten werden in Zeilen transponiert und mit Zeilenumbrüchen ausgedruckt.

Probieren Sie es online!