Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Arithmetic-derivative/Factor/arithmetic-derivative.factor
+++ b/Task/Arithmetic-derivative/Factor/arithmetic-derivative.factor
@ -0,0 +1,13 @@
+USING: combinators formatting grouping io kernel math
+math.primes.factors prettyprint ranges sequences ;
+
+: n' ( m -- n )
+    {
+        { [ dup neg? ] [ neg n' neg ] }
+        { [ dup 2 < ] [ drop 0 ] }
+        { [ factors dup length 1 = ] [ drop 1 ] }
+        [ unclip-slice swap product 2dup n' * spin n' * + ]
+    } cond ;
+
+-99 100 [a..b] [ n' ] map 10 group
+[ [ "%5d" printf ] each nl ] each