【x buf】の検索結果
;; Schemeで階乗
(define fact
(lambda (x buf)
(if (<= x 1) buf
(fact (- x 1) (* x buf)))))
(display (fact 100 1))RE: https://mi.tsujigoya.net/notes/a9gmqksr6c
RE: https://mi.tsujigoya.net/notes/a9gmqksr6c
;; Schemeで階乗
(define fact
(lambda (x buf)
(if (<= x 1) buf
(fact (- x 1) (* x buf)))))
(display (fact 100 1))