Ormiston pairs: Difference between revisions

=={{header|RPL}}==

{{works with|HP|49}}

« →STR { 10 } 0 CON

1 PICK3 SIZE '''FOR''' j

OVER j DUP SUB STR→ 1 +

DUP2 GET 1 + PUT

'''NEXT''' NIP

» '<span style="color:blue">DIGCNT</span>' STO <span style="color:grey">''@ ( n → [ count0 .. count9 ] ) ''</span>

« 0 { } 2 3

'''WHILE''' DUP 1E6 < '''REPEAT'''

'''IF''' DUP2 <span style="color:blue">DIGCNT</span> SWAP <span style="color:blue">DIGCNT</span> == '''THEN'''

'''IF''' PICK3 SIZE 30 < '''THEN'''

DUP2 2 →LIST 1 →LIST 4 ROLL SWAP + UNROT

'''END'''

4 ROLL 1 + 4 ROLLD

'''END'''

NIP DUP NEXTPRIME

'''END''' DROP2 SWAP

» '<span style="color:blue">TASK</span>' STO

{{out}}

<pre>

2: {{1913 1931} {18379 18397} {19013 19031} {25013 25031} {34613 34631} {35617 35671} {35879 35897} {36979 36997} {37379 37397} {37813 37831} {40013 40031} {40213 40231} {40639 40693} {45613 45631} {48091 48109} {49279 49297} {51613 51631} {55313 55331} {56179 56197} {56713 56731} {58613 58631} {63079 63097} {63179 63197} {64091 64109} {65479 65497} {66413 66431} {74779 74797} {75913 75931} {76213 76231} {76579 76597}}

1: 382

</pre>