Inspirado neste mini-desafio de bate-papo.

Dada uma sequência como entrada (somente caracteres imprimíveis ASCII), imprima a sequência com as letras "chovendo". Cada letra deve ser um número aleatório de linhas para baixo (aleatório entre 0e o comprimento da sequência, cada uma com probabilidade diferente de zero) e apenas um caractere por coluna. Todas as saídas possíveis devem ter novamente uma probabilidade diferente de zero.

Talvez isso seja um pouco confuso, então aqui está um exemplo (retirado desse CMC):

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

Observe como o Hespaço é um abaixo, o dzero é baixo e llotudo acontece na linha. O ré o mais distante 9, mas ainda é menor que o comprimento da corda do topo. Este é apenas um exemplo, existem dezenas de outras possibilidades de entrada Hello World.

Outros exemplos podem ser:

test

t
 e
  s
   t


PP&CG

  & G
 P

P  C

• A entrada e a saída podem ser fornecidas por qualquer método conveniente .
• A entrada é garantida como não vazia (ou seja, você nunca receberá ""como entrada).
• Você pode imprimi-lo em STDOUT ou retorná-lo como resultado de uma função.
• Um programa completo ou uma função são aceitáveis.
• Qualquer quantidade de espaço em branco estranho é aceitável, desde que os caracteres sejam alinhados adequadamente (por exemplo, fique à vontade para preencher como um retângulo).
• As brechas padrão são proibidas.
• Isso é código-golfe, portanto todas as regras usuais de golfe se aplicam e o código mais curto (em bytes) vence.

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,,"")}

Experimente online!

Entrada como uma string; escreve para stdout.

JavaScript (ES6), 72 bytes

Recebe a entrada como uma lista de caracteres. Retorna uma matriz de caracteres.

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

Experimente online!

Pitão - 9 bytes

Lista de linhas de saída.

.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

Experimente online .

J , 30 19 bytes

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

Experimente online!

Japonês , 8 bytes

-1 byte de @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

Experimente online!

APL (Dyalog Unicode) , 16 bytes ^SBCS

Função de prefixo tácito anônimo

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

≢ comprimento da corda

1+ um adicionado a isso

≢⍴ cópias "longas" desse

∘? números inteiros aleatórios no intervalo 1… aqueles e depois…

∘- negar e depois ...

⊢↑¨⍨ pegue muitos elementos de cada personagem, preenchendo a esquerda com espaços

∘↑ misture a lista de strings em matriz, preenchendo com espaços à direita

⍉ transpor

Experimente online!

Japonês , 8 bytes

yÈùUÊö Ä

Tente

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

Gelatina , 10 bytes

³LŻX⁶x;)z⁶

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

Experimente online!

Entradas 1D, gera uma matriz 2D de caracteres.

PHP , 88 bytes

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

Experimente online!

Ou 94 bytes usando PHP função de números inteiros aleatórios criptográficos .

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

Experimente online!

Entrada de STDIN, saída paraSTDOUT . Correr como:

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

 e      r d

H      o   

         l 


    o 

-1 byte (string vazia em vez de espaço) e +1 byte (erro no lado das regras) thx para @ somente ASCII!

Carvão , 10 9 bytes

↑Ｅθ◧ι⊕‽Ｌθ

Experimente online!Link é a versão detalhada do código. Editar: salvou 1 byte graças a @ ASCII-only. Explicação:

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

Como aponta apenas ASCII, você pode mover as letras aleatoriamente para cima em vez de para baixo para o mesmo efeito (exceto que pode haver espaço em branco extra na parte inferior, em vez da parte superior). Imprimir uma matriz de caracteres para cima é equivalente a imprimir uma sequência normalmente; portanto, o preenchimento compensa cada caractere verticalmente de forma aleatória.

05AB1E (herdado) , 9 bytes

εIgÝΩú}ζ»

Insira como uma sequência ou lista de caracteres (está correto).

Experimente online.

Alternativa de 9 bytes muito mais lenta:

gDÝsãΩúζ»

Insira como uma lista de caracteres.

Experimente online.

Ambos usam a versão herdada de 05AB1E, pois a nova versão requer um explícito €Santes doζ ..

Explicação:

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

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

Isso define uma função fque aceita a Stringou Vector{Char}e retorna umaMatrix{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

Exemplo:

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

Isso certamente poderia ser melhor; minhas habilidades no golfe são bastante enferrujadas.

Experimente online!

Perl 5 -F , 50 49 bytes

-1 por @DomHastings

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

Experimente online!

PowerShell , 108 102 98 bytes

^{-4 bytes graças ao mazzy}

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

Experimente online!

Basicamente, itera 1..lengtha string duas vezes, uma vez para obter localizações aleatórias de linhas para cada caractere e uma segunda vez para realmente construir cada linha usando esses índices. Descobrir como fazer isso de uma só vez é onde estão as grandes economias de bytes.

SmileBASIC 3, 62 bytes

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

Vermelho , 84 bytes

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

Experimente 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

Solução:

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

Experimente online!

Explicação:

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

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

Cria uma lista de opções aleatórias e, em seguida, cria uma lista de colunas com espaço em branco em todos os lugares, exceto no índice especificado por cada escolha aleatória. As colunas são transpostas em linhas e impressas com novas linhas entre elas.

Experimente online!