Data update

Task/Arithmetic-derivative/ABC/arithmetic-derivative.abc

@@ -0,0 +1,15 @@
+HOW TO RETURN lagarias n:
+    SELECT:
+        n<0: RETURN -lagarias -n
+        n in {0;1}: RETURN 0
+        NO d IN {2..floor root n} HAS n mod d=0: RETURN 1
+        ELSE: RETURN ((n/d) * lagarias d) + (d * lagarias (n/d))
+
+PUT 0 IN col
+FOR n IN {-99..100}:
+    WRITE (lagarias n)>>6
+    PUT col+1 IN col
+    IF col mod 10 = 0: WRITE/
+
+FOR m IN {1..20}:
+    WRITE "D(10^`m>>2`) = `(lagarias (10**m))/7`"/