Amicable pairs: Difference between revisions
Content deleted Content added
Added Quackery. |
|||
Line 4,227:
(12285, 14595)
(17296, 18416)</pre>
=={{header|Quackery}}==
<code>properdivisors</code> is defined at [[Proper divisors#Quackery]].
<lang Quackery> [ properdivisors
dup size 0 = iff
[ drop 0 ] done
behead swap witheach + ] is spd ( n --> n )
[ dup dup spd dup spd
rot = unrot > and ] is largeamicable ( n --> b )
[ [] swap times
[ i^ largeamicable if
[ i^ dup spd
swap join
nested join ] ] ] is amicables ( n --> [ )
20000 amicables witheach [ witheach [ echo sp ] cr ]</lang>
{{out}}
<pre>220 284
1184 1210
2620 2924
5020 5564
6232 6368
10744 10856
12285 14595
17296 18416
</pre>
=={{header|R}}==
| |||