Renamed run -> include
This commit is contained in:
4
examples/include.lisp
Normal file
4
examples/include.lisp
Normal file
@@ -0,0 +1,4 @@
|
||||
; include
|
||||
(
|
||||
(include "../examples/recursive.lisp")
|
||||
(echo line-color))
|
||||
@@ -1,17 +1,16 @@
|
||||
; recursive
|
||||
|
||||
(
|
||||
(clear)
|
||||
(def line-color "red")
|
||||
(clear)
|
||||
(defn rec
|
||||
(v)
|
||||
(if (gt v 0)
|
||||
((stroke (circle
|
||||
(mul 5 v)
|
||||
(mul 5 v)
|
||||
(mul 5 v)) 1 line-color)
|
||||
(rec (sub v 5))))
|
||||
)
|
||||
|
||||
(rec 100)
|
||||
)
|
||||
(v)
|
||||
(if
|
||||
(gt v 0)
|
||||
(
|
||||
(stroke
|
||||
(circle
|
||||
(mul 5 v)
|
||||
(mul 5 v)
|
||||
(mul 5 v)) 1 "red")
|
||||
(rec
|
||||
(sub v 5)))))
|
||||
(rec 100))
|
||||
@@ -1,4 +0,0 @@
|
||||
(
|
||||
(include "../examples/recursive.lisp")
|
||||
(echo line-color)
|
||||
)
|
||||
Reference in New Issue
Block a user