2010-06-12から1日間の記事一覧

Scheme でローン計算

勉強のために Scheme でローン計算する関数を作ってみました。 (define (fukuri moto riritu hensai c) (let ((tuki (/ riritu 12))) (if (> (* tuki moto) hensai) 'oops! (if (< 0 (- moto hensai)) (fukuri (* (- moto hensai) (+ 1 tuki)) riritu hensai…