     ffirst
     (partition 16)
     (map #(reduce bit-xor %))
-    (map hex)
+    (map #(cl-format nil "~2,'0x" %))
     (apply str)))

(ns advent-2017.day-10
  (:require
   [clojure.string :as str]))

(def data [129,154,49,198,200,133,97,254,41,6,2,1,255,0,191,108])


(defn xs->ascii [xs]
  (->> xs (str/join ",") (mapv #?(:clj int :cljs #(.charCodeAt % 0)))))

(defn part-2 []
  (->> [(range 256) 0 0]
    (iterate (partial round (into (xs->ascii data) [17, 31, 73, 47, 23])))
