Amicable pairs: Difference between revisions
→{{header|Tcl}}
m (→{{header|Julia}}: comments editied) |
|||
Line 4,948:
17296 : 1 2 4 8 16 23 46 47 92 94 184 188 368 376 752 1081 2162 4324 8648
18416 : 1 2 4 8 16 1151 2302 4604 9208
</pre>
=={{header|Transd}}==
<lang scheme>
#lang transd
MainModule : {
_start: (lambda
(with sum 0 d 0 f Filter( from: 1 to: 20000 apply: (lambda
(= sum 1)
(for i in Range(2 (toInt (sqrt @it) 1)) do
(if (not (mod @it i))
(= d (/ @it i)) (+= sum i)
(if (neq d i) (+= sum d))))
(ret sum)))
(with v (toVec f)
(for i in v do
(if (and (< i (size v))
(eq (+ @idx 1) (get v (- i 1)))
(< i (get v (- i 1))))
(textout (+ @idx 1) ", " i "\n")
)))))
}</lang>{{out}}
<pre>
284, 220
1210, 1184
2924, 2620
5564, 5020
6368, 6232
10856, 10744
14595, 12285
18416, 17296
</pre>
| |||