Proper divisors: Difference between revisions
Content added Content deleted
m (→{{header|PicoLisp}}: add my variant) |
m (→Variant) |
||
Line 849: | Line 849: | ||
# Output: |
# Output: |
||
# (NIL (1) (1) (1 2) (1) (1 2 3) (1) (1 2 4) (1 3) (1 2 5))</lang> |
# (NIL (1) (1) (1 2) (1) (1 2 3) (1) (1 2 4) (1 3) (1 2 5))</lang> |
||
=== |
===Brute-force=== |
||
<lang PicoLisp>(de propdiv (N) |
<lang PicoLisp>(de propdiv (N) |
||
(cdr |
(cdr |