Narcissistic decimal number: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
|||
Line 4,183: | Line 4,183: | ||
; Min is 0 |
; Min is 0 |
||
), |
), |
||
Max is 10^Exp, |
Max is 10^Exp - 1, |
||
combi(Exp, DigList, Comb), |
combi(Exp, DigList, Comb), |
||
powSum(Comb, Exp, 0, PSum), |
powSum(Comb, Exp, 0, PSum), |
||
Line 4,189: | Line 4,189: | ||
digits(PSum, DList), |
digits(PSum, DList), |
||
sort(0, @=<, DList, DSort), % hold equal digits |
sort(0, @=<, DList, DSort), % hold equal digits |
||
⚫ | |||
PSum =:= 0, % special case because |
|||
Comb = [0] % DList in digits(0, DList) is [] and not [0] |
|||
⚫ | |||
). |
). |
||