Враховуючи додатне ціле число N ("вірусність"), ваша програма повинна створити ASCII-художній малюнок дерева з двома гілками довжиною 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Часи циклу .

¿ι*↓*

Друкуйте a *, але залиште курсор праворуч або під курсором залежно від значення 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;}

Спробуйте його онлайн тут .

Дякуємо Кевіну Крейсейну за те, що він займався 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

Спробуйте в Інтернеті!

Пітон 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 або пізнішої версії. Замінити ?:з ?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тут корисно зберегти байт (над моїм попереднім підходом).

Пітон 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)

Спробуйте в Інтернеті!

Python має вбудовану підтримку складних чисел форми a+bj; це робить деякі 2-D проблеми трохи простежуванішими ...