RosettaCodeData/Task/Amicable-pairs/Prolog/amicable-pairs-2.pro

3 lines
132 B
Prolog
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
?- amicable_pairs_under_20000(R).
R = [220-284, 1184-1210, 2620-2924, 5020-5564, 6232-6368, 10744-10856, 12285-14595, 17296-18416].