Arithmetic derivative: Difference between revisions
m
→{{header|J}}
(→{{header|J}}: more direct (non-recursive) implementation) |
m (→{{header|J}}) |
||
Line 41:
<lang J>D=: {{ (*y)*+/1*/\.q:1>.|y }}"0</lang>
In other words: find the prime factors of the absolute value of y as a sequence, find and sum each of the products with exactly one value removed from this sequence and multiply by the sign of y. (And since 0's
Task example:
| |||