Positive decimal integers with the digit 1 occurring exactly twice: Difference between revisions
Positive decimal integers with the digit 1 occurring exactly twice (view source)
Revision as of 10:12, 1 January 2023
, 1 year agoAdded Quackery.
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added Quackery.) |
||
Line 539:
911
</pre>
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery"> [ 0 swap
[ dup 0 != while
10 /mod 1 = if
[ dip 1+ ]
again ]
drop 2 = ] is two-1s ( n --> b )
[] 1000 times
[ i^ two-1s if
[ i^ join ] ]
echo</syntaxhighlight>
{{out}}
<pre>[ 11 101 110 112 113 114 115 116 117 118 119 121 131 141 151 161 171 181 191 211 311 411 511 611 711 811 911 ]</pre>
=={{header|Raku}}==
| |||