19 lines
288 B
Scheme
19 lines
288 B
Scheme
|
; Copyright (c) 1994 by Richard Kelsey. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(define (fact n)
|
||
|
|
(let loop ((i n) (r 1))
|
||
|
|
(if (<= i 1)
|
||
|
|
r
|
||
|
|
(loop (- i 1) (* i r)))))
|
||
|
|
|
||
|
|
(define facts (make-vector 5))
|
||
|
|
|
||
|
|
(do ((i 0 (+ i 1)))
|
||
|
|
((< 4 i))
|
||
|
|
(vector-set! facts i (fact i)))
|
||
|
|
|
||
|
|
(define f4 (vector-ref facts 4))
|
||
|
|
|