Aliquot sequence classifications: Difference between revisions
m
Minor edit to Prolog code
(Added Prolog Solution) |
m (Minor edit to Prolog code) |
||
Line 2,633:
aliquot_sequence(N, Limit, [N], Sequence, Class).
aliquot_sequence(_,
aliquot_sequence(_, _, [0|_], [0], terminating):-!.
aliquot_sequence(N, _, [N, N|_], [], perfect):-!.
| |||