RosettaCodeData/Task/Happy-numbers/Prolog/happy-numbers-2.pro
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

2 lines
54 B
Prolog

?- happy_numbers(L, 8).
L = [1,7,10,13,19,23,28,31].