Proper divisors: Difference between revisions
Content added Content deleted
m (→{{header|Oforth}}: Replace rem by mod) |
m (→{{header|PicoLisp}}: add my 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> |
||
===Variant=== |
|||
<lang PicoLisp>(de propdiv (N) |
|||
(cdr |
|||
(rot |
|||
(make |
|||
(for I N |
|||
(and (=0 (% N I)) (link I)) ) ) ) ) ) |
|||
(de countdiv (N) |
|||
(let C -1 |
|||
(for I N |
|||
(and (=0 (% N I)) (inc 'C)) ) |
|||
C ) ) |
|||
(let F (-5 -8) |
|||
(tab F "N" "LIST") |
|||
(for I 10 |
|||
(tab F |
|||
I |
|||
(glue " + " (propdiv I)) ) ) ) |
|||
(println |
|||
(maxi |
|||
countdiv |
|||
(range 1 20000) ) )</lang> |
|||
=={{header|PL/I}}== |
=={{header|PL/I}}== |