starparse

gistfile1.clj

(require '[clojure.string :as s])
(set! *print-length* nil)

(def starspeck-raw
  (vec
    (s/split-lines
      (slurp "/Volumes/DUv3_9pview/Digital Universe/data/milkyway/specks/stars.speck"))))

(let [fields
      [:x :y :z :colorb-v :lum :absmag :appmag :texnum :distly :dcalc :plx :plxerr :vx :vy :vz :speed :hipnum]]
  (spit "starspeck.edn"
    (pr-str
      (vec
        (for [spcstr (drop 29 starspeck-raw)]
          (->> (s/split spcstr #"\s+")
            rest
            (take 16)
            (map #(System.Double/Parse %))
            (zipmap fields)))))))