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/Binary-digits/Bracmat/binary-digits.bracmat
+++ b/Task/Binary-digits/Bracmat/binary-digits.bracmat
@ -0,0 +1,17 @@
+  ( dec2bin
+  =   bit bits
+    .   :?bits
+      &   whl
+        ' ( !arg:>0
+          & mod$(!arg,2):?bit
+          & div$(!arg,2):?arg
+          & !bit !bits:?bits
+          )
+      & (str$!bits:~|0)
+  )
+& 0 5 50 9000 423785674235000123456789:?numbers
+&   whl
+  ' ( !numbers:%?dec ?numbers
+    & put$(str$(!dec ":\n" dec2bin$!dec \n\n))
+    )
+;