Simple Physics in Clojure

phys.clj

(defn point-builder [start stop step]
  (if (< start stop)
    (into (vector start) (point-builder (+ start step) stop step))
    (vector start)
    )
  )

(defn half [n] (/ n 2) )

(defn linspace [size n]
  (point-builder (- (half size)) (half size) (/ size (dec n)))
  )

(def dimentionalize
  (partial map (fn [x] (vector x 0 0)))
  )

(defn point-charge [charge pos]
  {:charge charge, :pos pos}
  )

(defn charged-points [size n charge]
  (map (partial point-charge (/ charge n)) (linspace size n))
  )

(defn unit-distance [charge_point point pos]
  (- (get charge_point pos) (get point pos))
  )

(defn r [p1 p2]
  (map (partial unit-distance p1 p2) [0 1 2])
  )