Data update

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

@@ -1,10 +0,0 @@
-(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.l

@@ -1,7 +0,0 @@
-(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))))