tests/mutual-recursion.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13

(declare g)

(define f (n)
    (do
        (print "f" n)
        (if (<= 100 n) n (g (* 2 n)))))

(define g (n)
    (do
        (print "g" n)
        (if (<= 100 n) n (f (+ n 1)))))

(print (f 1))