Proper divisors: Difference between revisions
Content added Content deleted
m (→{{header|Oforth}}: Replace rem by mod) |
m (→{{header|PicoLisp}}: add my variant) |
||
Line 849:
# Output:
# (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}}==
| |||