Binary encoding comparisons (Clojure)

transit_vs_fressian.clj

;; -- Deps
;; Transit 
;;   [com.cognitect/transit-clj "0.8.285"]

;; Fressian
;;   [org.fressian/fressian "0.6.6"]
;;   [org.clojure/data.fressian "0.2.1"]

(import '[java.io ByteArrayInputStream ByteArrayOutputStream])

(require '[cognitect.transit :as transit])

(defn data->transit-bytes [value]
  (let [out (ByteArrayOutputStream. 4096)
        writer (transit/writer out :msgpack {})]
    (transit/write writer value)
    (.toByteArray out)))

(defn transit-bytes->data [value]
  (let [in (ByteArrayInputStream. value)
        reader (transit/reader in :msgpack {})]
    (transit/read reader)))
(require '[clojure.data.fressian :as fres])

(defn data->fressian-bytes [data]
  (let [out-stream (ByteArrayOutputStream.)]
    (with-open [wrt (fres/create-writer out-stream #_:handlers #_write-handler-lookup)]
      ;(fres/write-object wrt data)
      (.writeObject wrt data true) ;; does the caching option do something?
      (.toByteArray out-stream))))

(defn fressian-bytes->data [bytes]
  (fres/read-object (fres/create-reader (ByteArrayInputStream. bytes))))

(defn print-bytesize [x]
  (assert (class (byte-array [])) x)
  (println "Bytesize" (count x))
  x)

;; Transit (way) more compact than 

(let [a (vec (repeat 10 100))]
  (-> [a a a a a]
      (data->transit-bytes)
      (print-bytesize) ;=> 56
      (transit-bytes->data)))

(let [a (repeat 10 100)]
  (-> [a a a a a]
   (data->fressian-bytes)
   (print-bytesize) ;=> 112
   (fressian-bytes->data)))