3 ; Test for the while macro.
7 (display counter) (newline)
8 (set! counter (- counter 1))))
10 ; Basic iterative summation. Run this on large numbers to
11 ; test garbage collection and tail-call optimization.
14 (define (sum-iter total count maxcount)
15 (if (fix:> count maxcount)
17 (sum-iter (fix:+ total count) (fix:+ count 1) maxcount)))
21 ; Recursive summation. Use this to compare with tail call
22 ; optimized iterative algorithm.
23 (define (sum-recurse n)
26 (fix:+ n (sum-recurse (fix:- n 1)))))