1001コメント321KB

Lisp Scheme Part16

レス数が950を超えています。1000を超えると書き込みができなくなります。

0992デフォルトの名無しさん

2007/04/19(木) 21:45:36

(define (rev-fib m n)
(let loop ((m m) (n n) (r '()))
(if (> n m)
(reverse! r)
(loop n (- m n) (cons m r)))))

レス数が950を超えています。1000を超えると書き込みができなくなります。