Improved init for sierpinski

This commit is contained in:
Devine Lu Linvega 2024-04-21 18:06:08 -07:00
parent 0be295a237
commit 150d0ff032
1 changed files with 2 additions and 2 deletions

View File

@ -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 < (?*))) ...............*...............