Remove loop-based gons, leaving only recursive
This commit is contained in:
parent
1c85f920f2
commit
88d9e3b2e3
|
@ -10,25 +10,6 @@ fn randcolor () -> (random (0, 255), random (0, 255), random (0, 255))
|
|||
|
||||
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! {
|
||||
(iter) -> spiral_gonr! (iter, iter, 30)
|
||||
(_, 0, _) -> :ok
|
||||
|
@ -39,6 +20,4 @@ fn spiral_gonr! {
|
|||
spiral_gonr! (iter, dec (times), inc (size))
|
||||
}
|
||||
}
|
||||
goto! (37, 37)
|
||||
spiral_gonr! (100)
|
||||
print! (turtle_state())
|
||||
|
|
Loading…
Reference in New Issue
Block a user