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/Run-length-encoding/Bracmat/run-length-encoding.bracmat
+++ b/Task/Run-length-encoding/Bracmat/run-length-encoding.bracmat
@ -0,0 +1,21 @@
+  ( run-length
+  = character otherCharacter acc begin end
+    .   :?acc
+      & 0:?begin
+      & @( !arg
+         :   ?
+             [!begin
+             %@?character
+             ?
+             [?end
+             (   (%@:~!character:?otherCharacter) ?
+               & !acc !end+-1*!begin !character:?acc
+               & !otherCharacter:?character
+               & !end:?begin
+               & ~`
+             | &!acc !end+-1*!begin !character:?acc
+             )
+         )
+      & str$!acc
+  )
+&   run-length$WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW