Amicable pairs: Difference between revisions
Content deleted Content added
m →{{header|Julia}}: comments editied |
|||
Line 4,948: | Line 4,948: | ||
17296 : 1 2 4 8 16 23 46 47 92 94 184 188 368 376 752 1081 2162 4324 8648 |
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 |
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> |
</pre> |
||