twc/ludus-scripts
17
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove loop-based gons, leaving only recursive

Browse Source
This commit is contained in:
Scott Richmond 2024-11-03 17:32:43 -05:00
parent 1c85f920f2
commit 88d9e3b2e3
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gons_recur.ld
View File

@ -10,25 +10,6 @@ fn randcolor () -> (random (0, 255), random (0, 255), random (0, 255))
fn pen_randcolor! () -> pencolor! (randcolor ()) fn pen_randcolor! () -> pencolor! (randcolor ())
fn spiral_gon! (iter) -> {
loop (30, 0, colors :lime) with (size, times, color) -> {
let randcolor = (random(0, 255), random(0, 255), random (0, 255))
let newcolor = if eq? (color, colors :lime)
then colors :fuchsia
else colors :lime
if lt? (times, iter)
then {
pen_randcolor! ()
ngon! (5, size)
right! (inv (iter))
recur (add (size, 1), inc (times), newcolor)
}
else :ok
}
}
& spiral_gon! (100)
fn spiral_gonr! { fn spiral_gonr! {
(iter) -> spiral_gonr! (iter, iter, 30) (iter) -> spiral_gonr! (iter, iter, 30)
(_, 0, _) -> :ok (_, 0, _) -> :ok
@ -39,6 +20,4 @@ fn spiral_gonr! {
spiral_gonr! (iter, dec (times), inc (size)) spiral_gonr! (iter, dec (times), inc (size))
} }
} }
goto! (37, 37)
spiral_gonr! (100) spiral_gonr! (100)
print! (turtle_state())