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 08:21, 2 July 2023
, 10 months agoadd RPL
(→{{header|Ruby}}: Add Ruby) |
(add RPL) |
||
Line 824:
Found 27 numbers
done...
</pre>
=={{header|RPL}}==
≪ → s
≪ 0
1 s SIZE '''FOR''' j
s j DUP SUB "1" == + '''NEXT'''
2 ==
≫ ≫ '<span style="color:blue">ONLY2?</span>' STO
≪ { }
1 1000 FOR j
'''IF''' j <span style="color:blue">ONLY2?</span> '''THEN''' j + '''END NEXT'''
≫ EVAL
{{out}}
<pre>
1: { 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>
Line 833 ⟶ 851:
[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|Sidef}}==
<syntaxhighlight lang="ruby">say (1..1000 -> grep { .digits.count { _ == 1 } == 2 })</syntaxhighlight>
| |||