blob: 86a88c8a2a102bdc92d7a4199240d52aad5de6bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(defun is-even (x)
(if (= x 0)
#t
(is-odd (- x 1))))
(defun is-odd (x)
(is-even (- x 1)))
(assert (is-even 10000))
(assert (is-even 10))
(assert (is-even 0))
(assert (is-odd 1))
(assert (is-even 2))
(defun cnt-down (x)
(if (= x 0)
#t
(progn
(cnt-down (- x 1)))))
(assert (cnt-down 10000))
;; can pass without stack overflow,
;; but comment out for too time-consuming
;; (assert (is-even 1000000))
;; (assert (cnt-down 1000000))
|
