(defn angle [time] 
  (let [[h m] (map read-string (.split time ":"))] 
    (-> 
      (+ (mod (* h 30) 360) (* 0.5 m)) 
      (- (* 6 m))
      (+ 180)
      (mod 360)
      (- 180)
      Math/abs)))
(println (angle "10:46"))