9 lines
216 B
Scheme
9 lines
216 B
Scheme
(define (perf n)
|
|
(let loop ((i 1)
|
|
(sum 0))
|
|
(cond ((= i n)
|
|
(= sum n))
|
|
((= 0 (modulo n i))
|
|
(loop (+ i 1) (+ sum i)))
|
|
(else
|
|
(loop (+ i 1) sum)))))
|