Data update

Task/Arithmetic-derivative/R/arithmetic-derivative.r

@@ -1,13 +1,14 @@
 library(gmp) #for big number factorization
+options(scipen=20)
 
-arith_deriv <- function(x){
+arith_deriv <- function(x) {
   if(x %in% c(0, 1, -1)) return(0)
   n <- abs(x)
   facs <- as.numeric(factorize(n))
   nfacs <- length(facs)
-  if(nfacs==1) return(sign(x))
+  if(nfacs == 1) return(sign(x))
   d <- sum(facs[1:2])
-  if(nfacs>2){
+  if(nfacs > 2) {
     c_prod <- cumprod(facs)
     for(i in 3:nfacs) d <- d*facs[i]+c_prod[i-1]
   }