flip.clj

(defn flipped-endian-float
  "Flips the endian order of each byte in the supplied byte sequence,
  and converts the sequence into a float. Currently we limit the size
  of the `byte-seq` to 4."
  [byte-seq]
  {:pre [(= 4 (count byte-seq))]}
  (->> byte-seq
       (map-indexed (fn [idx bit]
                      (bit-shift-left
                       (bit-and bit 0xff)
                       (* 8 idx))))
       (reduce +)
       (Float/intBitsToFloat)))