(define -ayalog '())

括弧に魅せられて道を外した名前のないプログラマ

2012-01-12から1日間の記事一覧

fact関数を暇だったので書いてみた。(本当は暇じゃない)

全然暇じゃないです。正直気晴らしに少し考え事しながら書いてました。以下は僕が書いたコード (define (sub1 x) (- x 1)) (define (fact x) (cond ((zero? x) 1) (else (* x (sub1 x))))) こっちはもうひとつのScheme入門から (define (fact n) (if (= n 1)…