(define (fact n)
(define (fact_iter p i)
(if (> i n) p
(fact_iter (* p i) (+ i 1))))
(fact_iter 1 1))
;izpolzvane
(fact 5)
;vryshta 120
Публикацията е добавена на 18.11.2012, 17:04 в Lisp Код, Код. Можете да проследите отговорите на RSS 2.0.
Можете да оставите коментар, или да проследите от вашия сайт.