dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add recursive example

Browse Source
This commit is contained in:
Quentin Leonetti 2019-07-14 06:22:48 +02:00
parent b3fa6d26d5
commit 6abb963a40
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
examples/recursive.lisp Normal file
View File

@ -0,0 +1,15 @@
(
(clear)
(def rec
(lambda (v)
(if (gt v 0)
(
(stroke (circle
(mul 5 v)
(mul 5 v)
(mul 5 v)) 1 "red")
(rec (sub v 5))
)
(echo "done"))))
(rec 100)
)