Achilles numbers: Difference between revisions
m
→{{header|RPL}}: add a few comments
(add RPL) |
m (→{{header|RPL}}: add a few comments) |
||
Line 2,788:
'''IF''' DUP SIZE 4 < '''THEN''' DROP2 0
'''ELSE'''
<span style="color:blue">UNBUNDL</span> → p a <span style="color:grey">@ separates prime factors from their exponents</span>
≪ 1 p INV - ΠLIST →NUM * <span style="color:grey">@ get phi(n)</span>
a ≪ MIN ≫ STREAM 2 ≥
a ≪ GCD ≫ STREAM 1 ==
AND * <span style="color:grey">@ if Achilles, returns phi(n))</span>
≫
'''END'''
| |||