... bu yüzden bu beni bir ağaç yapmak için bir meydan okuma.

Tek bir tamsayı bağımsız değişkeni olan N ve Pisagor Ağacı N düzeylerini derinden çizen, seviye 0'ın sadece gövde olduğu bir ağaç veya işlev üretin.

Ağacın her bir birleşimi, üçgenin tepe noktasını çevre üzerindeki rastgele bir noktaya yerleştirmelidir (bu nokta, en az 5 eşit aralıklı noktaya eşit olarak veya tüm yarım daire boyunca eşit olarak dağıtılmalıdır).

İsteğe bağlı olarak ağacınız 3B olabilir, renkli olabilir veya günün saatine göre aydınlatılabilir. Ancak, bu kod golf, bu yüzden en küçük dosya kazanır.

DÜZENLEME: Yarışmayı kapatacağım ve bir haftalık olduğunda en küçük cevabı kabul edeceğim

Mathematica, 246 234 221 karakter

g[n_,s_:1]:={p=RandomReal[q=Pi/2],r=##~Rotate~(o={0,0})&,t=Translate}~With~If[n<0,{},Join[#~t~{0,s}&/@(#~r~p&)/@g[n-1,s*Cos@p],t[#,s{Cos@p^2,1+Sin[2p]/2}]&/@(r[#,p-q]&)/@g[n-1,s*Sin@p],{Rectangle[o,o+s]}]]
f=Graphics@g@#&

Bu kesinlikle bunu yapmanın en zarif / en kısa yolu değildir.

Kullanımı: f[8]

Ve sırasıyla f[6]ve için örnek çıktılar f[10].

Biraz soluksuz:

g[n_, s_:1] := With[{p},
  r = Rotate;
  t = Translate;
  p = RandomReal[q = Pi/2];
  If[n < 0, {},
   Join[
    (t[#, {0, s}] &) /@ (r[#, p, {0, 0}] &) /@ g[n - 1, s*Cos[p]],
    (t[#, s {Cos[p]^2, 1 + Sin[2 p]/2}] &) /@ (r[#, p - q, {0, 0}] &) /@
       g[n - 1, s*Sin[p]],
    {Rectangle[{0, 0}, {s, s}]}
    ]
   ]
  ]
f = Graphics@g[#] &

CFDG, 134 karakter

Bu tam olarak geçerli değildir, çünkü özyineleme derinliğini sınırlayamazsınız. Ama sorun sadece bu konuda bir çözüm gerektiriyor . :)

startshape t
c(q)=cos(q/2)^2
d(q)=1+sin(q)/2
p=acos(-1)
shape t{w=rand(p)
SQUARE[x .5 .5]t[trans 0 1 c(w) d(w)]t[trans c(w) d(w) 1 1]}

Sonuçlar şuna benzer

46 karakter daha ( toplam 180 karakter ) için bile renklendirebilirsiniz:

startshape t
c(q)=cos(q/2)^2
d(q)=1+sin(q)/2
p=acos(-1)
shape t{w=rand(p)
SQUARE[x .5 .5 h 25 sat 1 b .2]t[trans 0 1 c(w) d(w) b .08 .8 h 2.2]t[trans c(w) d(w) 1 1 b .08 .8 h 2.2]}

Postscript, 322 270

Düzenleme: Görünüşe göre realtimeuygun rastgele jeneratör tohumu olarak kullanılamaz. Bu nedenle, ortam değişkenini bu amaçla kullanacağız ve programı şu şekilde çalıştıracağız:

gs -c 20 $RANDOM -f tree.ps

veya

gswin32c -c 20 %RANDOM% -f tree.ps

Şimdi ağaçlarımız daha az tahmin edilebilir. Toplam sayıya 14 bayt eklenir. Diğer değişiklikler: 1) Program argümanı artık komut satırında iletildi. 2) Hiçbir açık yineleme karşı yığını boyutu bu amaca hizmet etmez (daha sonra sağ dalı çizmek için sol dal dönüş açısı yığın üzerinde saklanır). 3) Gerekli derinlik için adlandırılmış bir değişken yoktur - yığın boyutu, yığın üzerindeki ofsetidir. Orada çıkışta bırakılır, yani tüketilmez.

srand
250 99 translate
50 50 scale
/f{
    count
    dup index div dup 1 le{
        0 exch 0 setrgbcolor
        0 0 1 1 rectfill
        0 1 translate
        rand 5 mod 1 add 15 mul
        gsave
        dup rotate
        dup cos dup scale
        f
        grestore
        dup cos dup dup mul
        exch 2 index sin mul translate
        dup 90 sub rotate
        sin dup scale 1
        f
        pop
    }{pop}ifelse
}def
f

Oldukça açık olduğunu düşünüyorum - grafik durumu hazırlanıyor ve fprosedür 'ardışık her derinlik seviyesi için iki kez -' sol 've' sağ 'dallar için tekrar tekrar çağrılıyor. Dikdörtgeni ile çalışma1x1Boyut (orijinal ölçeğe bakın), yan uzunluk ile çarpma sorununu ortadan kaldırır. Sol dalın dönme açısı randomize edilir - 5 rastgele eşit aralıklı bölümden biri kullanılır - bence tekdüze rastgele olma için olası çirkin vakaları önler.

20 veya daha fazla gerekli derinlik için yavaş olabilir.

Sırada ASCII kodlu ikili jetonlar kullanan golf versiyonudur (bkz. Luser droog'un bağlantılı konudan cevabı). Not cos, sin, randbu notasyonu kullanamaz.

/${{<920>dup 1 4 3 roll put cvx exec}forall}def srand 250 99<AD>$ 50 50<8B>$/f{count(8X68)$ 1 le{0(>)$ 0<9D>$ 0 0 1 1<80>$ 0 1<AD>$ rand 5 mod 1 add 15<~CecsG2u~>$ cos<388B>$ f(M8)$ cos(88l>)$ 2(X)$ sin<6CAD38>$ 90<A988>$ sin<388B>$ 1 f pop}{pop}(U)$}def f

.

/${{<920>dup 1 4 3 roll put cvx exec}forall}def
srand
250 99<AD>$
50 50<8B>$
/f{
count(8X68)$
1 le{
0(>)$ 0<9D>$
0 0 1 1<80>$
0 1<AD>$
rand 5 mod 1 add 15 
<~CecsG2u~>$
cos<388B>$ 
f
(M8)$
cos(88l>)$
2(X)$ sin<6CAD38>$
90<A988>$ sin<388B>$
1
f
pop
}{pop}(U)$
}def
f

Coffeescript 377B 352B

Ben kirli yazma kahve hissediyorum ama python3 için iyi bir çizim paketi bulamıyorum: - /

Q=(n)->X=(D=document).body.appendChild(C=D.createElement('Canvas')).getContext('2d');C.width=C.height=400;M=Math;T=[[175,400,50,i=0]];S=M.sin;C=M.cos;while [x,y,l,a]=T[i++]
 X.save();X.translate x,y;X.rotate -a;X.fillRect 0,-l,l,l;X.restore();T.push [e=x-l*S(a),f=y-l*C(a),g=l*C(b=M.random()*M.PI/2),d=a+b],[e+g*C(d),f-g*S(d),l*S(b),d-M.PI/2] if i<2**n

Javascript 393B 385B

Javascript biraz daha güzel ve for-loop ile çok daha mutluyum ama olmadan [x, y, z] = Bir sözdizimi ben sadece kahve yenmek için yeterince kısa yapamam

function Q(n){X=(D=document).body.appendChild(C=D.createElement('Canvas')).getContext('2d');C.width=C.height=600;M=Math;T=[[275,400,50,i=0]];while(A=T[i++]){X.save();X.translate(x=A[0],y=A[1]);X.rotate(-(a=A[3]));X.fillRect(0,-(l=A[2]),l,l);X.restore();S=M.sin;C=M.cos;i<M.pow(2,n)&&T.push([e=x-l*S(a),f=y-l*C(a),g=l*C(b=M.random()*M.PI/2),d=a+b],[e+g*C(d),f-g*S(d),l*S(b),d-M.PI/2])}}

Bu biraz matematiksel çözüm neredeyse iki kat daha uzun olduğunu söylemek gerekir: - / eylem görmek: http://jsfiddle.net/FK2NX/3/