優しい人弟子になって下さいな(´・ω・`)
■ このスレッドは過去ログ倉庫に格納されています
0568デフォルトの名無しさん
2008/02/03(日) 14:34:48(define (sum a b)
(define (sum-iter s c m)
(if (= c m) (+ s c) (sum-iter (+ s c) (+ c 1) m)))
(if (> a b) (sum-iter 0 b a) (sum-iter 0 a b)))
■ このスレッドは過去ログ倉庫に格納されています