Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Digital-root/Bracmat/digital-root.bracmat
+++ b/Task/Digital-root/Bracmat/digital-root.bracmat
@ -0,0 +1,29 @@
+  ( root
+  =   sum persistence n d
+    .   !arg:(~>9.?)
+      |   !arg:(?n.?persistence)
+        & 0:?sum
+        & ( @( !n
+             :   ?
+                 (#%@?d&!d+!sum:?sum&~)
+                 ?
+             )
+          | root$(!sum.!persistence+1)
+          )
+  )
+& (   627615 39390 588225 393900588225 10 199
+    :   ?
+        ( #%@?N
+        & root$(!N.0):(?Sum.?Persistence)
+        &   out
+          $ ( !N
+              "has additive persistence"
+              !Persistence
+              "and digital root of"
+              !Sum
+            )
+        & ~
+        )
+        ?
+  | done
+  );