little.clj

(defn little-float
  "Converts the supplied byte sequence into a float, in little endian
  format."
  [bitseq]
  (->> bitseq
       (map-indexed (fn [idx bit]
                      (-> (bit-and bit 0xff)
                          (bit-shift-left (* 8 idx)))))
       (reduce bit-xor)
       (Float/intBitsToFloat)))

(defn little-float
  "Converts the supplied byte sequence into a float, in little endian
  format."
  [bitseq]
  (->> bitseq
       (map-indexed (fn [idx bit]
                      (bit-shift-left
                       (bit-and bit 0xff)
                       (* 8 idx))))
       (reduce bit-xor)
       (Float/intBitsToFloat)))

(defn little-floats
  "Converts the supplied byte array into a seq of
  little-endian-ordered floats."
  [bytes]
  (vec (map little-float
            (partition float-bytes bytes))))