Narcissistic decimal number: Difference between revisions
Added Quackery.
(Added Fōrmulæ solution) |
(Added Quackery.) |
||
Line 3,625:
6 -> [548834]
7 -> [1741725, 4210818, 9800817, 9926315]</pre>
=={{header|Quackery}}==
<lang Quackery> [ [] swap
[ 10 /mod
rot join swap
dup 0 = until ]
drop ] is digits ( n --> [ )
[ dup digits
0 over size rot
witheach
[ over ** rot + swap ]
drop = ] is narcissistic ( n --> b )
[] 0
[ dup narcissistic if
[ tuck join swap ]
1+ over size 25 = until ]
drop echo</lang>
{{out}}
<pre>[ 0 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315 ]</pre>
=={{header|R}}==
| |||