Anonymous user
Run-length encoding: Difference between revisions
→{{header|Elixir}}
m (→{{header|PHP}}: make platform agnostic) |
|||
Line 1,699:
'12W1B12W3B24W1B14W'
'WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW'</pre>
=={{header|Emacs Lisp}}==
<lang lisp>
(defun run-length-encode (str_arg)
"Return the run length encoding of a string argument STR_ARG."
(let (value)
(let ((dalist (string-to-list str_arg)) (letters) (frequency))
(dolist (element dalist value)
(if (not (equal (car letters) element))
(progn
(setq letters (cons element letters))
(setq frequency (cons 1 frequency)))
(setq frequency (cons (+ (car frequency ) 1) (cdr frequency)))))
(apply 'concat
(reverse
(mapcar*
(lambda (x y) (concat (number-to-string x)
(char-to-string y)))
frequency letters))))))
</lang>
=={{header|Erlang}}==
| |||