Arithmetic derivative: Difference between revisions
Content added Content deleted
(add RPL) |
|||
Line 1,122: | Line 1,122: | ||
D(10**19) / 7 == 19000000000000000000 |
D(10**19) / 7 == 19000000000000000000 |
||
D(10**20) / 7 == 200000000000000000000</pre> |
D(10**20) / 7 == 200000000000000000000</pre> |
||
=={{header|RPL}}== |
|||
{{works with|HP|49}} |
|||
≪ '''CASE''' |
|||
DUP 0 < '''THEN''' NEG ADERIV 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 |
|||
≪ n <span style="color:blue">ADERIV</span> ≫ 'n' -99 100 1 SEQ |
|||
≪ 10 m ^ <span style="color:blue">ADERIV</span> 7 / R→I ≫ 'nm' 1 20 1 SEQ |
|||
{{out}} |
|||
<pre> |
|||
2: {-75 -77 -1 -272 -24 -49 -34 -96 -20 -123 -1 -140 -32 -45 -22 -124 -1 -43 -108 -176 -1 -71 -18 -80 -55 -39 -1 -156 -1 -59 -26 -72 -1 -61 -18 -192 -51 -33 -1 -92 -1 -31 -22 -92 -16 -81 -1 -56 -20 -45 -14 -112 -1 -25 -39 -48 -1 -41 -1 -68 -16 -21 -1 -60 -12 -19 -14 -80 -1 -31 -1 -32 -27 -15 -10 -44 -1 -13 -10 -24 -1 -21 -1 -32 -8 -9 -1 -16 -1 -7 -6 -12 -1 -5 -1 -4 -1 -1 0 0 0 1 1 4 1 5 1 12 6 7 1 16 1 9 8 32 1 21 1 24 10 13 1 44 10 15 27 32 1 31 1 80 14 19 12 60 1 21 16 68 1 41 1 48 39 25 1 112 14 45 20 56 1 81 16 92 22 31 1 92 1 33 51 192 18 61 1 72 26 59 1 156 1 39 55 80 18 71 1 176 108 43 1 124 22 45 32 140 1 123 20 96 34 49 24 272 1 77 75 140} |
|||
1: {1 20 300 4000 50000 600000 7000000 80000000 900000000 10000000000 110000000000 1200000000000 13000000000000 140000000000000 1500000000000000 16000000000000000 170000000000000000 800000000000000000 19000000000000000000 200000000000000000000} |
|||
</pre> |
|||
=={{header|Rust}}== |
=={{header|Rust}}== |