27 lines
382 B
Common Lisp
27 lines
382 B
Common Lisp
(echo (map '(add %1 1) (1 2 3)))
|
|
|
|
(echo (first (1 2 3)))
|
|
(echo (rest (1 2 3)))
|
|
|
|
(echo
|
|
(filter
|
|
'(eq 0 (mod %1 2))
|
|
(1 2 3 4 5))
|
|
)
|
|
|
|
(clear)
|
|
(map
|
|
'(stroke (rect (mul a 30) 20 50 50)
|
|
1 "red")
|
|
(range 0 20 5))
|
|
|
|
(map
|
|
'(stroke
|
|
(rect
|
|
(mul %1 10)
|
|
(add 250 (mul (sin %1) 250))
|
|
(mul 4 %1)
|
|
(add 20 (mul (cos %1) 50))) 1 "red")
|
|
(range 0 200 5))
|
|
|