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