Disarium numbers: Difference between revisions
Added Quackery.
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
(Added Quackery.) |
||
Line 1,635:
0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427
</pre>
=={{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>
=={{header|Raku}}==
| |||