add recursive example

2019-07-14 06:22:48 +02:00
parent b3fa6d26d5
commit 6abb963a40
1 changed files with 15 additions and 0 deletions
--- a/examples/recursive.lisp
+++ b/examples/recursive.lisp
@@ -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)
+)