Narcissistic decimal number: Difference between revisions
m
→{{header|Prolog}}
Basicgames (talk | contribs) |
|||
Line 4,183:
; Min is 0
),
Max is 10^Exp - 1,
combi(Exp, DigList, Comb),
powSum(Comb, Exp, 0, PSum),
Line 4,189:
digits(PSum, DList),
sort(0, @=<, DList, DSort), % hold equal digits
▲ ; DSort = Comb
).
| |||