Amicable pairs: Difference between revisions
m
→{{header|Transd}}
Line 4,958:
(with sum 0 d 0 f Filter( from: 1 to: 20000 apply: (lambda
(= sum 1)
(for i in Range(2 (
(if (not (mod @it i))
(= d (/ @it i)) (+= sum i)
(if (neq d i) (+= sum d))))
(ret sum)))
(with v (
(for i in v do
(if (and (< i (size v))
|