6 lines
108 B
Text
6 lines
108 B
Text
|
(de perfect (N)
|
||
|
|
(let C 0
|
||
|
|
(for I (/ N 2)
|
||
|
|
(and (=0 (% N I)) (inc 'C I)) )
|
||
|
|
(= C N) ) )
|