Minilisp.pm/t/function.t

12 lines
259 B
Perl
Raw Normal View History

2021-04-02 17:11:34 +02:00
(defun inc (a) (+ a 1))
(expect "inc 5 == 6" (eq (inc 5) 6))
(expect "inc 6 == 7" (eq (inc 6) 7))
2021-04-04 02:33:49 +02:00
(defun range (start end)
(if (>= start end)
'()
(cons start (range (+ start 1) end))))
(expect "range" (equal (range 1 10) '(1 2 3 4 5 6 7 8 9)))