Data update

Task/Run-length-encoding/Ada/run-length-encoding.adb

@@ -0,0 +1,48 @@
+with Ada.Text_IO;        use Ada.Text_IO;
+with Ada.Strings.Fixed;  use Ada.Strings.Fixed;
+procedure Test_Run_Length_Encoding is
+   function Encode (Data : String) return String is
+   begin
+      if Data'Length = 0 then
+         return "";
+      else
+         declare
+            Code  : constant Character := Data (Data'First);
+            Index : Integer := Data'First + 1;
+         begin
+            while Index <= Data'Last and then Code = Data (Index) loop
+               Index := Index + 1;
+            end loop;
+            declare
+               Prefix : constant String := Integer'Image (Index - Data'First);
+            begin
+               return Prefix (2..Prefix'Last) & Code & Encode (Data (Index..Data'Last));
+            end;
+         end;
+      end if;
+   end Encode;
+   function Decode (Data : String) return String is
+   begin
+      if Data'Length = 0 then
+         return "";
+      else
+         declare
+            Index : Integer := Data'First;
+            Count : Natural := 0;
+         begin
+            while Index < Data'Last and then Data (Index) in '0'..'9' loop
+               Count := Count * 10 + Character'Pos (Data (Index)) - Character'Pos ('0');
+               Index := Index + 1;
+            end loop;
+            if Index > Data'First then
+               return Count * Data (Index) & Decode (Data (Index + 1..Data'Last));
+            else
+               return Data;
+            end if;
+         end;
+      end if;
+   end Decode;
+begin
+   Put_Line (Encode ("WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW"));
+   Put_Line (Decode ("12W1B12W3B24W1B14W"));
+end Test_Run_Length_Encoding;

Task/Run-length-encoding/COBOL/run-length-encoding.cob

@@ -0,0 +1,124 @@
+       >>SOURCE FREE
+IDENTIFICATION DIVISION.
+PROGRAM-ID. run-length-encoding.
+
+ENVIRONMENT DIVISION.
+CONFIGURATION SECTION.
+REPOSITORY.
+    FUNCTION encode
+    FUNCTION decode
+    .
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  input-str                           PIC A(100).
+01  encoded                             PIC X(200).
+01  decoded                             PIC X(200).
+
+PROCEDURE DIVISION.
+    ACCEPT input-str
+    MOVE encode(FUNCTION TRIM(input-str)) TO encoded
+    DISPLAY "Encoded: " FUNCTION TRIM(encoded)
+    DISPLAY "Decoded: " FUNCTION TRIM(decode(encoded))
+    .
+END PROGRAM run-length-encoding.
+
+
+IDENTIFICATION DIVISION.
+FUNCTION-ID. encode.
+
+DATA DIVISION.
+LOCAL-STORAGE SECTION.
+01  str-len                             PIC 9(3) COMP.
+
+01  i                                   PIC 9(3) COMP.
+
+01  current-char                        PIC A.
+
+01  num-chars                           PIC 9(3) COMP.
+01  num-chars-disp                      PIC Z(3).
+
+01  encoded-pos                         PIC 9(3) COMP VALUE 1.
+
+LINKAGE SECTION.
+01  str                                 PIC X ANY LENGTH.
+
+01  encoded                             PIC X(200).
+
+PROCEDURE DIVISION USING str RETURNING encoded.
+    MOVE FUNCTION LENGTH(str) TO str-len
+    MOVE str (1:1) TO current-char
+    MOVE 1 TO num-chars
+    PERFORM VARYING i FROM 2 BY 1 UNTIL i > str-len
+        IF str (i:1) <> current-char
+            CALL "add-num-chars" USING encoded, encoded-pos,
+                CONTENT current-char, num-chars
+
+            MOVE str (i:1) TO current-char
+            MOVE 1 TO num-chars
+        ELSE
+            ADD 1 TO num-chars
+        END-IF
+    END-PERFORM
+
+    CALL "add-num-chars" USING encoded, encoded-pos, CONTENT current-char,
+        num-chars
+    .
+END FUNCTION encode.
+
+IDENTIFICATION DIVISION.
+PROGRAM-ID. add-num-chars.
+
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  num-chars-disp                      PIC Z(3).
+
+LINKAGE SECTION.
+01  str                                 PIC X(200).
+
+01  current-pos                         PIC 9(3) COMP.
+
+01  char-to-encode                      PIC X.
+
+01  num-chars                           PIC 9(3) COMP.
+
+PROCEDURE DIVISION USING str, current-pos, char-to-encode, num-chars.
+    MOVE num-chars TO num-chars-disp
+    MOVE FUNCTION TRIM(num-chars-disp) TO str (current-pos:3)
+    ADD FUNCTION LENGTH(FUNCTION TRIM(num-chars-disp)) TO current-pos
+    MOVE char-to-encode TO str (current-pos:1)
+    ADD 1 TO current-pos
+    .
+END PROGRAM add-num-chars.
+
+
+IDENTIFICATION DIVISION.
+FUNCTION-ID. decode.
+
+DATA DIVISION.
+LOCAL-STORAGE SECTION.
+01  encoded-pos                         PIC 9(3) COMP VALUE 1.
+01  decoded-pos                         PIC 9(3) COMP VALUE 1.
+
+01  num-of-char                         PIC 9(3) COMP VALUE 0.
+
+LINKAGE SECTION.
+01  encoded                             PIC X(200).
+
+01  decoded                             PIC X(100).
+
+PROCEDURE DIVISION USING encoded RETURNING decoded.
+    PERFORM VARYING encoded-pos FROM 1 BY 1
+            UNTIL encoded (encoded-pos:2) = SPACES OR encoded-pos > 200
+        IF encoded (encoded-pos:1) IS NUMERIC
+            COMPUTE num-of-char = num-of-char * 10
+                + FUNCTION NUMVAL(encoded (encoded-pos:1))
+        ELSE
+            PERFORM UNTIL num-of-char = 0
+                MOVE encoded (encoded-pos:1) TO decoded (decoded-pos:1)
+                ADD 1 TO decoded-pos
+                SUBTRACT 1 FROM num-of-char
+            END-PERFORM
+        END-IF
+    END-PERFORM
+    .
+END FUNCTION decode.

Task/Run-length-encoding/Emacs-Lisp/run-length-encoding-1.el

@@ -0,0 +1,10 @@
+(defun run-length-encode (str)
+  (let (output)
+    (with-temp-buffer
+      (insert str)
+      (goto-char (point-min))
+      (while (not (eobp))
+        (let* ((char (char-after (point)))
+               (count (skip-chars-forward (string char))))
+          (push (format "%d%c" count char) output))))
+    (mapconcat #'identity (nreverse output) "")))

Task/Run-length-encoding/Emacs-Lisp/run-length-encoding-2.el

@@ -0,0 +1,7 @@
+(require 'seq)
+
+(defun run-length-encode (str)
+  (let ((grouped (mapcar #'cdr (seq-group-by #'identity (string-to-list str)))))
+    (apply #'concat (mapcar (lambda (items)
+                              (format "%d%c" (length items) (car items)))
+                            grouped))))

Task/Run-length-encoding/Euphoria/run-length-encoding.eu

@@ -0,0 +1,38 @@
+include misc.e
+
+function encode(sequence s)
+    sequence out
+    integer prev_char,count
+    if length(s) = 0 then
+        return {}
+    end if
+    out = {}
+    prev_char = s[1]
+    count = 1
+    for i = 2 to length(s) do
+        if s[i] != prev_char then
+            out &= {count,prev_char}
+            prev_char = s[i]
+            count = 1
+        else
+            count += 1
+        end if
+    end for
+    out &= {count,prev_char}
+    return out
+end function
+
+function decode(sequence s)
+    sequence out
+    out = {}
+    for i = 1 to length(s) by 2 do
+        out &= repeat(s[i+1],s[i])
+    end for
+    return out
+end function
+
+sequence s
+s = encode("WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW")
+pretty_print(1,s,{3})
+puts(1,'\n')
+puts(1,decode(s))

Task/Run-length-encoding/PowerShell/run-length-encoding.ps1

@@ -0,0 +1,18 @@
+function Compress-RLE ($s) {
+    $re = [regex] '(.)\1*'
+    $ret = ""
+    foreach ($m in $re.Matches($s)) {
+        $ret += $m.Length
+        $ret += $m.Value[0]
+    }
+    return $ret
+}
+
+function Expand-RLE ($s) {
+    $re = [regex] '(\d+)(.)'
+    $ret = ""
+    foreach ($m in $re.Matches($s)) {
+        $ret += [string] $m.Groups[2] * [int] [string] $m.Groups[1]
+    }
+    return $ret
+}

Task/Run-length-encoding/Uiua/run-length-encoding.uiua

@@ -1,7 +1,7 @@
 # Run Length Encoding and Decoding
 
-Rle ← setinv(
+Rle ← ⌅(
   /◇⊂⍚⊂°⋕°▽
-| ▽⊃⊜⋕(♭⊜∘¬)⊸∈+@0⇡10)
+| ▽⊃⊜⋕(♭⊜∘¬)⊸∊+@0⇡10)
 "WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW"
-&p⨬("oops"|"good")≍&p.°Rle&p.⊸Rle&p.
+&p⨬("oops"|"good")≍⊸&p°Rle⊸&p⊸Rle⊸&p