Arithmetic derivative: Difference between revisions
m
→{{header|RPL}}: typo
(add RPL) |
m (→{{header|RPL}}: typo) |
||
Line 1,126:
{{works with|HP|49}}
≪ '''CASE'''
DUP 0 < '''THEN''' NEG <span style="color:blue">ADERIV</span> NEG '''END'''
DUP 2 < '''THEN''' DROP 0 '''END'''
R→I DUP ISPRIME? '''THEN''' DROP 1 '''END'''
DUP FACTORS HEAD LASTARG 2 GET DUP2 ^ 4 PICK OVER / 1 RND
→ n p k pk rem
≪ k pk p / * rem * rem <span style="color:blue">ADERIV</span> pk * +
≫
'''END'''
≫ '<span style="color:blue">ADERIV</span>' STO
| |||