Anonymous user
Proper divisors: Difference between revisions
m
Added a partial entry for the PicoLisp language.
m (Added a partial entry for the PicoLisp language.) |
|||
Line 449:
10 1 2 5
max = 79, candidates = 15120 18480</pre>
=={{header|PicoLisp}}==
<lang PicoLisp># Generate all proper divisors.
(de propdiv (N)
(head -1 (filter
'((X) (=0 (% N X)))
(range 1 N) )) )
# Obtaining the values from 1 to 10 inclusive.
(mapcar propdiv (range 1 10))
# Output:
# (NIL (1) (1) (1 2) (1) (1 2 3) (1) (1 2 4) (1 3) (1 2 5))</lang>
=={{header|PL/I}}==
| |||