a guest Mar 16th, 2014 130 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   (let [old-grid     (:grid world)
  2.         f1           (fn [k] (:grid-coord (get old-grid k)))
  3.         f            (fn [k] (not (= k (:grid-coord (get old-grid k)))))
  4.         d            (let [mismatch-keys (doall (filter f (keys old-grid)))]
  5.                        (if (> (count mismatch-keys) 0)
  6.                          (let [grc (doall (map f1 (keys old-grid)))]
  7.                            (throw (Exception. (str "key mismatch! " (vec mismatch-keys) " GRC: " (vec grc)))))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand