Narcissistic decimal number: Difference between revisions

=={{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>