Positive decimal integers with the digit 1 occurring exactly twice: Difference between revisions

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