Contents

(ns run-length-encoding)

(defn run-length-encode 
  "encodes a string with run-length-encoding"
  [s]
  (apply str
         (for
           [ x (partition-by identity s)]
           (str
             (when-not (= 1 (count x)) (count x)) (first x)))))

(defn run-length-decode 
  "decodes a run-length-encoded string"
  [s]
  (->> s
       (re-seq #"[0-9]+.|[a-zA-Z\s]")
       (map #(if (= (count %) 1) (str "1" %) %))
       (map #(list (Integer. (reduce str "" (butlast %))) (str (last %))))
       (map #(apply str (repeat (first %) (second %))))
       (reduce str)))

Version data entries

121 entries across 121 versions & 1 rubygems

Version	Path
trackler-2.2.1.78	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.77	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.76	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.75	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.74	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.73	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.72	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.71	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.70	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.69	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.68	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.67	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.66	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.65	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.64	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.63	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.62	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.61	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.60	tracks/clojure/exercises/run-length-encoding/src/example.clj
trackler-2.2.1.59	tracks/clojure/exercises/run-length-encoding/src/example.clj