ayato0211 https://blog.hatena.ne.jp/ayato0211/ (define -ayalog '()) https://ayato.hateblo.jp/ Scheme 全然暇じゃないです。正直気晴らしに少し考え事しながら書いてました。以下は僕が書いたコード (define (sub1 x) (- x 1)) (define (fact x) (cond ((zero? x) 1) (else (* x (sub1 x))))) こっちはもうひとつのScheme入門から (define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) まぁ書き終わった後に見比べて思った。 間違ってる？？0判定した後に1かけたら結果変わるじゃん！！ まぁzero?のとこを1判定するだけでいいんですけどもね！！ 後、僕の場合Scheme入… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fayato.hateblo.jp%2Fentry%2F20120112%2F1326364277" title="fact関数を暇だったので書いてみた。(本当は暇じゃない) - (define -ayalog &#39;())" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://ecx.images-amazon.com/images/I/41OG665OkZL.jpg Hatena Blog https://hatena.blog 2012-01-12 19:31:17 rich https://ayato.hateblo.jp/entry/20120112/1326364277 1.0 100%