Coprimes: Difference between revisions
Content added Content deleted
mNo edit summary |
(add RPL) |
||
Line 1,219: | Line 1,219: | ||
Found 2 coprimes |
Found 2 coprimes |
||
done... |
done... |
||
</pre> |
|||
=={{header|RPL}}== |
|||
<code>GCD</code> is defined at [[Greatest common divisor#RPL|Greatest common divisor]] |
|||
{{works with|HP|28}} |
|||
≪ → pairs |
|||
≪ { } |
|||
1 pairs SIZE '''FOR''' j |
|||
pairs j GET |
|||
DUP LIST→ DROP |
|||
'''IF''' <span style="color:blue">GCD</span> 1 == '''THEN''' 1 →LIST + '''ELSE''' DROP '''END''' |
|||
'''NEXT''' |
|||
≫ '<span style="color:blue">→COPR</span>' STO |
|||
{{21 15} {17 23} {36 12} {18 29} {60 15}} <span style="color:blue">→COPR</span> |
|||
{{out}} |
|||
<pre> |
|||
1: { { 17 23 } { 18 29 } } |
|||
</pre> |
</pre> |
||