ด้วยจำนวนเต็มบวกN ("virality") โปรแกรมของคุณควรสร้างภาพวาด ASCII-art ของต้นไม้ที่มีความยาวสองสาขาNขยายลงและ / หรือขวาจากมุมบนซ้าย

ทิศทางของแต่ละสาขาหลังจากเครื่องหมายดอกจันแรกอาจเป็นไปทางขวาหรือลงและตัวเลือกนี้ควรทำแบบสุ่ม¹ในทุกขั้นตอนถัดไป

ตัวอย่างเช่นเมื่อได้รับอินพุต 5 เอาต์พุตอาจมีลักษณะดังนี้:

***
* ***
**
 **

กิ่งทั้งสองได้รับอนุญาตให้สัมผัส (อยู่ในเซลล์ที่อยู่ติดกัน) แต่ไม่ทับซ้อนกัน (อยู่ในเซลล์เดียวกัน) ดังนั้นสิ่งต่อไปนี้จะไม่ได้รับอนุญาต:

***
* *
*****
  *
  *

ตัวอย่าง

สำหรับอินพุต1เอาต์พุตที่เป็นไปได้เท่านั้นคือ:

**
*

(สิ่งนี้จะปรากฏในเอาต์พุตที่ถูกต้องทั้งหมดเนื่องจากการที่กิ่งทั้งสองใช้เส้นทางเดียวกันจะทำให้พวกมันทับซ้อนกัน)

เอาต์พุตที่เป็นไปได้สำหรับอินพุต3รวม:

***
* *
**

**
***
*
*

สำหรับอินพุต7:

****
*  **
*   **
*
***
  *

สำหรับอินพุต10:

****
*  *      
*********
  *
  *****

นี่คือ รหัสกอล์ฟดังนั้นคำตอบที่ถูกต้องที่สั้นที่สุด (เป็นไบต์) จะชนะ

^{1. สิ่งนี้ควรสุ่มอย่างสม่ำเสมอ (เช่นโอกาส 50/50 ของแต่ละทิศทาง) หรือใกล้เคียงกับการสุ่มอย่างสม่ำเสมอเท่าที่คุณจะได้รับบนฮาร์ดแวร์ปกติ}

CJam , 58 51 ไบต์

[TT]{_2_m*\f.+{:-},mR}ri*]ee{~\)S*\{'*t}/}%::a:.+N*

ลองออนไลน์!

แนวคิดพื้นฐานคือเราเริ่มต้นด้วย[0 0]จากนั้นเพิ่ม 0 หรือ 1 ซ้ำ ๆ ในแต่ละองค์ประกอบ (ทำให้แน่ใจว่าจะไม่เท่ากันยกเว้นตอนเริ่มต้นเพื่อหลีกเลี่ยงการทับซ้อน) โดยรวบรวมผลลัพธ์ระดับกลางทั้งหมด

[[0 0] [0 1] [0 2] [0 2] [1 3]]

จากนั้นเราจะสร้างอาร์เรย์ขนาดใหญ่ที่แต่ละอาร์เรย์ย่อยมี*ดัชนีที่กำหนดโดยคู่ที่สอดคล้องกันในอาร์เรย์เดิมและช่องว่างทุกที่อื่น

["*"
 "**"
 "* *"
 "* * "
 " * * "]

สิ่งนี้ให้ผลเป็นเส้นทแยงมุมของเมทริกซ์เอาต์พุต (การเลื่อนจากซ้ายไปขวาสอดคล้องกับการเลื่อนบนขวาไปซ้ายล่างในเมทริกซ์จริง)

จากนั้นเราสามารถใช้::a:.+เพื่อ "ลดความทแยงมุม" และรับบรรทัดผลลัพธ์:

[ "**** "
  "*  *"
  "** "
  " *"
  ""     ]

ถ่าน , 31 24 ไบต์

Ｆ²«Ｊ⁰¦⁰Ｆ⊕θ«¿ι*↓*≔‽²ι¿ＫＫ↗

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด เดิมทีฉันคิดว่ามันจะง่ายกว่าถ้าจะทำขั้นตอนแรกแบบสุ่ม แต่มันกลายเป็นนักกอล์ฟที่จะทำให้สาขาแรกสามารถคาดเดาได้ คำอธิบาย:

Ｆ²«

iห่วงสองครั้งใช้ตัวแปรดัชนี (สิ่งนี้ทำซ้ำในรายการโดยนัยดังนั้นจึงปลอดภัยที่จะกลายพันธุ์iภายในลูป)

Ｊ⁰¦⁰

ข้ามไปที่ต้นกำเนิดของผืนผ้าใบ

Ｆ⊕θ«

วนN+1ครั้ง

¿ι*↓*

พิมพ์แต่ปล่อยให้เคอร์เซอร์อย่างใดอย่างหนึ่งไปทางขวาหรือด้านล่างเคอร์เซอร์ขึ้นอยู่กับมูลค่าของ*i

‽²ι

สุ่มค่าของiการวนซ้ำถัดไปของลูปด้านใน

¿ＫＫ↗

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

Java 10, 273 272 268 239 ไบต์

n->{var c=new char[++n][n];for(var d:c)java.util.Arrays.fill(d,' ');for(int i=0,j=0,k=0,l=0,r=0,s=0,t=0,u=0;n-->0;){c[i+=r][j+=s]=c[k+=t][l+=u]=42;do{r=t=2;r*=Math.random();t*=Math.random();s=r^1;u=t^1;}while(i+r==k+t&j+s==l+u);}return c;}

ลองออนไลน์ได้ที่นี่

ขอบคุณKevin Cruijssenสำหรับการเล่นกอล์ฟ 29 ไบต์

เวอร์ชันที่ไม่ถูกปรับแต่ง:

n -> { // lambda taking an int as argument
    var c = new char[++n][n]; // the output; increment the virality since the root does not count
    for(var d : c) // for every line
        java.util.Arrays.fill(d,' '); // initialize it with spaces
    for(int i = 0, j = 0, // coordinates of the first branch
            k = 0, l = 0, // coordinates of the second branch
            r = 0, s = 0, // offsets for the first branch, one will be 0 and the other 1 always except for the first '*' where the two branches overlap
            t = 0, u = 0; // offsets for the second branch, one will be 0 and the other 1 always except for the first '*' where the two branches overlap
        n-- > 0; ) { // decrement virality and repeat as many times
        c[i+=r][j+=s] = c[k+=t][l+=u] = 42; // move according to offsets and place an '*' for each branch, 42 is ASCII code
        do { // randomly pick offsets for both branches
            r = t = 2; // Math.random() provides results in [0,1)
            r *= Math.random(); // flip a coin for the first branch
            t *= Math.random(); // flip another coin for the second
            s = r^1; // set s to 0 if r=1, to 1 if r=0
            u = t^1; // set u to 0 if t=1, to 1 if t=0
        } while(i+r==k+t&j+s==l+u); // repeat if the branches overlap
    }
    return c; // return the output
}

Perl 5 , 208 124 122 118 ไบต์

118 ไบต์โดยไม่มีบรรทัดใหม่การเยื้องและความคิดเห็น รับNจาก stdin:

@b=1..2;                            #number of branches is 2
for(1..<>){                         #add length <> (the input) to each branch
  ($x,$y)=@$_                       #get where current branch has its tip now
 ,.5>rand?$x++:$y++                 #increase either x or y
 ,$o[$y][$x]++&&redo                #try again if that place is already occupied
 ,$_=[$x,$y]                        #register new tip of current branch
   for@b                            #...and do all that for each branch 
}
say map$_||!$i++?'*':$",@$_ for@o;  #output the branches

ลองออนไลน์!

Python 2 , 204 ไบต์

from random import*
N=input()
s=eval(`[[' ']*-~N]*-~N`)
s[0][0]='*'
I=x,y=1,0
J=X,Y=0,1
exec"s[y][x]=s[Y][X]='*';i,j,k,l=choice((J+I,I+I,I+J,J+J)[x-2<X:]);x+=i;y+=j;X+=k;Y+=l;"*N
for i in s:print`i`[2::5]

ลองออนไลน์!

Perl 5 -a , 97 96 93 92 ไบต์

ไม่มีอคติถูกต้องลดหรือปิดในแนวทแยง

#!/usr/bin/perl -a
@;=[1];map{$x=$y=0;map++(.5<rand?$x:$y)*$;[$y][$x]++&&redo,1.."@F"}1,2;say+($","*")[@$_]for@

ลองออนไลน์!

PHP, 118 ไบต์

for($r="*",$w=$argn+2;$argn--;$r[$q+=rand(0,$r[$q+1]<"*")?:$w]=$r)$r[$p+=rand(!$i++,1)?:$w]=$r;echo wordwrap($r,$w-1);

ต้องการ PHP 5.4 หรือใหม่กว่าสำหรับผู้ดำเนินการ Elvis แทนที่?:ด้วย?1:สำหรับ PHP รุ่นเก่า

ทำงานเป็นท่อที่มี-nRหรือลองออนไลน์

สีแดง , 195 190 ไบต์

func[n][g: func[s][i: 0 d: s while[i < n][b/(d): #"*"until[r: 1 if 1 = random 2[r: n + 1]b/(d + r) =#" "]d: d + r
i: i + 1]]b:""loop n[loop n[append b" "]append b"^/"]b/1: #"*"g n + 2 g 2 b]

ลองออนไลน์!

อ่านได้:

f: func[n][
    g: func[s][
        i: 0
        d: s
        while[i < n][
            b/(d): #"*"
            until[
                r: 1 if 1 = random 2[r: n + 1]
                b/(d + r) = #" "
            ]
            d: d + r
            i: i + 1
        ]
    ]
    b: ""
    loop n[loop n[append b " "]append b "^/"]
    b/1: #"*"
    g n + 2
    g 2
    b
]

เจลลี่ , 50 43 41 ไบต์

2ḶẊ⁸С+\‘Ṗ
⁸ÇU;Ǥ⁻Q$¿
‘,þ`⁼€þÇS+»þ`Ị$ị⁾* 

ลองออนไลน์!

นี่เป็นเกมที่สนุกมากที่จะเขียน อาจมีวิธีการที่เหมาะสมกว่านี้ อาจมีการเล่นกอล์ฟด้วยวิธีนี้เช่นกัน

หลังจากที่ผมโพสต์นี้ฉันรู้ว่าฉันสามารถใช้แทน,þ`aþ,""oþ`Ɗ

R , 148 142 ไบต์

n=scan();`~`=sample;o=r=k=1;l=c(1,n);for(i in 1:n){r=r+l~1;t=l~1;k=k+"if"(k+t-r,t,l[l!=t]);o=c(o,r,k)};write(c(" ","*")[1:n^2%in%o+1],1,n,,"")

ลองออนไลน์!

นอกจากนี้แม้ว่าจะไม่ตรงตามข้อกำหนดของเอาต์พุต แต่คุณสามารถแยกความแตกต่างระหว่างสองสาขา: ลองออนไลน์!

คำอธิบาย:

เริ่มต้นจากดัชนี1เราสุ่มเลือกย้ายขวาหรือซ้ายสำหรับสาขาrโดยการเพิ่มnหรือ1ตามลำดับ จากนั้นเราเลือกการย้ายขวาหรือซ้ายอีกสาขาkและถ้ามันจะตัดกันว่าrจะไปไหนเราจะเลือกทิศทางอื่น จากนั้นเราจะใช้rและkเป็นดัชนีเข้าสู่การตั้งค่าเหล่านั้นเป็นm "*"ทำซ้ำn-1ครั้งแล้วเราพิมพ์ผล

เจลลี่ , 39 38 ไบต์

ḣ2+\€Ẏ
2Rd¤ṗẊÇ⁻Q$$¿Ç0,0ṭ‘Ṭ€×þ/$€Sị⁾* Y

ลองออนไลน์!

แม้ว่าจะดูเหมือนไม่เกี่ยวข้อง แต่dก็มีประโยชน์ที่นี่เพื่อบันทึกไบต์ (มากกว่าวิธีก่อนหน้าของฉัน)

Python 2 , 191 187 176 ไบต์

from random import*
n=input()
p,q=c=1,1j;s={p,q,0}
exec'z=choice(c);q,p=p+[z,1+1j-z][p+z in s],q;s|={q};'*2*~-n
R=range(n+1)
for y in R:print''.join(' *'[y+x*1jin s]for x in R)

ลองออนไลน์!

งูหลามมีการสนับสนุนพื้นเมืองสำหรับตัวเลขที่ซับซ้อนของรูปแบบa+bj; สิ่งนี้ทำให้เกิดปัญหา 2 มิติบางอย่างที่สามารถจัดการได้ง่ายขึ้น ...