tag:blogger.com,1999:blog-9089624119221753010.post3380425602621575812..comments2023-11-30T19:05:15.988+09:00Comments on vallog: [scheme]階乗を末尾再帰にして計算過程もlistで欲しいvalvallowhttp://www.blogger.com/profile/08767555476671212941noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-9089624119221753010.post-69145874955005031912009-05-15T18:17:00.000+09:002009-05-15T18:17:00.000+09:00こんなのはどうでしょう?
(define factorial-list
(lambda (n)...こんなのはどうでしょう?<br /><br />(define factorial-list<br /> (lambda (n)<br /> (let loop ([n (- n 1)] [lst (list n)])<br /> (if [= n 1]<br /> (reverse lst)<br /> (loop (- n 1) (cons (* n (car lst)) lst))))))Anonymousnoreply@blogger.com