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

m
→‎{{header|RPL}}: optimized code
m (→‎{{header|RPL}}: optimized code)
Line 827:
 
=={{header|RPL}}==
→STR → s0
1 3 PICK SIZE '''FOR''' j
≪ 0
OVER j DUP SUB "1" s== SIZE+ '''FORNEXT''' j
SWAP DROP s j DUP SUB "1"2 == + '''NEXT'''
≫ '<span style="color:blue">ONLY2?</span>' STO
2 ==
≫ ≫ '<span style="color:blue">ONLY2?</span>' STO
≪ { }
1,150

edits