แรงบันดาลใจจากการแชทขนาดเล็กที่ท้าทาย

รับสตริงเป็นอินพุต (อักขระที่พิมพ์ได้ ASCII เท่านั้น) ส่งออกสตริงด้วยตัวอักษร "raining" down ตัวอักษรแต่ละตัวจะต้องเป็นจำนวนสุ่มของบรรทัดลง (สุ่มระหว่าง0และความยาวของสตริงแต่ละคนมีความน่าจะเป็นไม่เป็นศูนย์) และตัวละครเดียวต่อคอลัมน์ เอาต์พุตที่เป็นไปได้ทั้งหมดต้องมีความน่าจะเป็นที่ไม่เป็นศูนย์อีกครั้งที่จะเกิดขึ้น

อาจจะสับสนเล็กน้อยดังนั้นนี่เป็นตัวอย่าง (นำมาจาก CMC นั้น):

Hello World

          d
H
       o
  llo

         l
      W
 e
        r

โปรดสังเกตว่าการHเว้นช่องว่างหนึ่งช่องเป็นเท่าไรdและlloทั้งหมดเกิดขึ้นในแนวนอน ที่rอยู่ไกลที่สุดลงไปที่9แต่ก็ยังน้อยกว่าความยาวของสตริงที่อยู่ห่างจากด้านบน นี่เป็นเพียงตัวอย่างหนึ่งที่มีหลายสิบของความเป็นไปได้อื่น ๆ Hello Worldสำหรับการป้อนข้อมูล

ตัวอย่างอื่น ๆ อาจเป็น:

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

JavaScript (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-#?@##

ลองออนไลน์!

Japtet , 8 ไบต์

-1 ไบต์จาก @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

ลองออนไลน์!

APL (Dyalog Unicode) , 16 ไบต์^SBCS

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ

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

≢ ความยาวของสตริง

1+ หนึ่งเพิ่มไปที่

≢⍴ สำเนา "ความยาว" ของสิ่งนั้น

∘? จำนวนเต็มแบบสุ่มในช่วง 1 …เหล่านั้นแล้ว…

∘- ปฏิเสธแล้ว ...

⊢↑¨⍨ ใช้เวลามากกว่าองค์ประกอบหลายตัวจากแต่ละตัว padding ด้านซ้ายด้วยช่องว่าง

∘↑ รายการผสมของสตริงลงในเมทริกซ์, การเติมด้วยช่องว่างทางด้านขวา

⍉ transpose

ลองออนไลน์!

Japtet , 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

Ruby , 59 57 55 ไบต์

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

ลองออนไลน์!

อินพุต 1D ส่งเอาต์พุตอาร์เรย์ของอักขระ 2 มิติ

PHP , 88 ไบต์

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

ลองออนไลน์!

หรือ94 ไบต์โดยใช้ฟังก์ชันจำนวนเต็มแบบสุ่มของการเข้ารหัสของ PHP

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 

-1 ไบต์ (สตริงว่างแทนที่จะเว้นวรรค) และ +1 ไบต์ (ข้อผิดพลาดที่ด้านข้างของกฎ) ขอบคุณไปที่ @ ASCII เท่านั้น!

ถ่าน , 10 9 ไบต์

↑Ｅθ◧ι⊕‽Ｌθ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด แก้ไข: บันทึก 1 ไบต์ต้องขอบคุณ @ ASCII-only คำอธิบาย:

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

ลองออนไลน์!

Julia, 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}

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

ตัวอย่าง:

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

สิ่งนี้จะดีขึ้นอย่างแน่นอน ทักษะการเล่นกอล์ฟของฉันค่อนข้างสนิม

ลองออนไลน์!

Perl 5 -F , 50 49 ไบต์

-1 โดย @DomHastings

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

ลองออนไลน์!

PowerShell , 108 102 98 ไบต์

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

ลองออนไลน์!

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

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

ลองออนไลน์!

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

สร้างรายการของตัวเลือกแบบสุ่มจากนั้นสร้างรายการคอลัมน์ที่มีช่องว่างทุกที่ยกเว้นดัชนีที่ระบุโดยตัวเลือกแบบสุ่มแต่ละรายการ คอลัมน์จะถูกเปลี่ยนเป็นแถวและพิมพ์ออกมาด้วยการขึ้นบรรทัดใหม่ระหว่างพวกเขา

ลองออนไลน์!