こういう初歩的なことでも苦戦するから困る。
階乗
(define fact |
(fact 10) |
階乗(末尾再帰)(のはず)
(define fact |
(fact 10) |
末尾再帰+計算過程list
(define fact |
(fact 10) |
Cons the Magnificent !!
こんなのはどうでしょう?
返信削除(define factorial-list
(lambda (n)
(let loop ([n (- n 1)] [lst (list n)])
(if [= n 1]
(reverse lst)
(loop (- n 1) (cons (* n (car lst)) lst))))))