Improved init for sierpinski
This commit is contained in:
parent
0be295a237
commit
150d0ff032
|
@ -9,7 +9,7 @@
|
|||
<> (Tri (?x > (?y ?z))) (Tri (?x (?y > ?z)))
|
||||
<> (?x (?y > (?z ?n))) (. (?y (?z > ?n)))
|
||||
<> ((?x > ())) (< ())
|
||||
<> (Tri < (* ?^)) (?(?: ?:) (*?^))
|
||||
<> (Tri < (* ?^)) (?(?: ?:) (*?^ \n))
|
||||
<> ((?x < ?y)) (< (?x ?y))
|
||||
|
||||
?(?-) (Print)
|
||||
|
@ -18,4 +18,4 @@
|
|||
<> (Tri.dup ?x ?^) (Tri.join ?x ?^)
|
||||
<> (Tri < ?x) (Tri.dup (. ?x) (?x \n))
|
||||
|
||||
Tri < (. (. (. (. (. (. (. (. (. (. (. (. (. (. (. (* (. (. (. (. (. (. (. (. (. (. (. (. (. (. (. ())))))))))))))))))))))))))))))))
|
||||
?(?* (Tri < (?*))) ...............*...............
|
Loading…
Reference in New Issue