이 채팅 미니 도전에서 영감을 얻었습니다 .

문자열을 입력으로 지정하면 (ASCII 인쇄 가능 문자 만 해당) "raining"문자가있는 문자열을 출력하십시오. 각 문자는 아래쪽으로 임의의 수의 행 ( 0문자열의 길이와 길이 사이의 임의의 숫자 , 0이 아닌 확률을 가짐) 이어야하고 열당 하나의 문자 여야합니다 . 가능한 모든 출력에는 다시 0이 아닌 확률이 있어야합니다.

약간 혼란 스러울 수 있으므로 다음은 CMC에서 가져온 예입니다.

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

H공간이 한 줄 d아래로, 0이 내려 가고 llo모든 줄이 어떻게 정렬 되는지 확인하십시오 . 는 r에서 가장 먼 다운 9, 그러나 멀리 상단에서 문자열 길이보다 여전히 낮다. 이것은 단지 하나의 예일뿐입니다 Hello World. input에 대한 다른 수십 가지 가능성이 있습니다.

다른 예는 다음과 같습니다.

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에 씁니다.

자바 스크립트 (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 

@ASCII 전용으로 -1 바이트 (공백 대신 빈 문자열) 및 +1 바이트 (규칙의 측면에서 오류)!

숯 , 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ãΩúζ»

문자 목록으로 입력하십시오.

온라인으로 사용해보십시오.

새 버전이 명시 적으로 필요로하기 때문에 두, 05AB1E의 기존 버전을 사용 €S전과 ζ..

설명:

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

이 함수 정의 f을 허용 String또는 Vector{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'  ' '

이것은 분명히 더 나을 수 있습니다. 내 골프 기술은 꽤 녹슨입니다.

온라인으로 사용해보십시오!

펄 5 -F , 50 49 바이트

@DomHastings에 의해 -1

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문자열을 두 번 반복 하여 한 번 각 문자에 대해 임의의 줄 위치를 얻고 두 번째로 해당 색인을 사용하여 각 줄을 실제로 만듭니다. 한 번의 스윕으로 수행하는 방법을 알아내는 것이 큰 바이트 절약입니다.

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

온라인으로 사용해보십시오!

파이썬-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

파이썬 (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)))

온라인으로 사용해보십시오!

파이썬 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]]))

무작위 선택 목록을 작성한 다음 각 무작위 선택에 의해 지정된 색인을 제외한 모든 위치에 공백이있는 열 목록을 작성하십시오. 열은 행으로 바뀌고 그 사이에 개행이 인쇄됩니다.

온라인으로 사용해보십시오!