Arithmetic derivative: Difference between revisions

m
(Add Factor)
m (→‎{{header|Quackery}}: tweaked code)
Line 762:
' negate ]
else []
dipswap 0 over
[ 0 overprimefactors
witheach
primefactors
[ dip witheachover / + ]
nip swap do ] [ dip over /is +d ]( n --> n )
nip ]
do ] is d ( n --> n )
 
200 times [ i^ 99 - d echo sp ]</syntaxhighlight>
1,462

edits