Law of cosines - triples: Difference between revisions
add RPL
(add RPL) |
|||
Line 2,545:
══════════════════════════ 60º unique ══════════════════════════
18,394 solutions found for 60º unique (sides up to 10,000)
</pre>
=={{header|RPL}}==
{{works with|HP|28}}
≪ → formula max
≪ { }
1 max '''FOR''' a a max '''FOR''' b
formula EVAL √ RND
'''IF''' DUP max ≤ OVER FP NOT AND
'''THEN''' a b ROT 3 →LIST 1 →LIST +
'''ELSE''' DROP '''END'''
'''NEXT NEXT'''
≫ ≫ ‘<span style="color:blue">TASK</span>’ STO
'a^2+b^2' 13 <span style="color:blue">TASK</span>
'a^2+b^2-a*b' 13 <span style="color:blue">TASK</span>
'a^2+b^2+a*b' 13 <span style="color:blue">TASK</span>
{{out}}
<pre>
3: { { 4 3 5 } { 8 6 10 } { 12 5 13 } }
2: { { 1 1 1 } { 2 2 2 } { 3 3 3 } { 4 4 4 } { 5 5 5 } { 6 6 6 } { 7 7 7 } { 8 3 7 } { 8 5 7 } { 8 8 8 } { 9 9 9 } { 10 10 10 } { 11 11 11 } { 12 12 12 } { 13 13 13 } }
1: { { 5 3 7 } { 8 7 13 } }
</pre>
| |||