От: | Трурль | ||
Дата: | 17.06.05 05:44 | ||
Оценка: |
Кё>(define sum
Кё> (lambda (from total)
Кё> (if (= 0 from)
Кё> total
Кё> (sum (- from 1) (+ total from)))))
Кё>(sum 10 0)
Кё>
(define (sum from total)
(if (= 0 from)
total
(sum (- from 1) (+ total from))))