Disarium numbers: Difference between revisions

=={{header|Quackery}}==

<syntaxhighlight lang="Quackery"> [ [] over

[ 10 /mod

swap dip join

dup 0 = until ]

swap witheach

[ i 1+ ** +

2dup < iff

conclude done ]

= ] is disarium ( n --> b )

[ temp put

0 []

[ dup size

temp share < while

over disarium if

[ over join ]

dip 1+

again ]

nip

temp release ] is disariums ( n --> [ )

18 disariums echo</syntaxhighlight>

{{out}}

<pre>[ 0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427 ]</pre>