src/clojurecraft/util.clj @ 4d4fca0a37f9

Refactor.  It's pretty, but not for long.  :(
author Steve Losh <steve@stevelosh.com>
date Mon, 08 Aug 2011 21:01:07 -0400
parents c41de2845803
children a95ebcff284a
(ns clojurecraft.util)

(defmacro l [& body]
  `(let [result# (~@body)]
     (println result#)
     result#))

(defmacro lc [& body]
  `(let [result# (~@body)]
     (println result#)
     (println (class result#))
     result#))

(defn invert [m]
  (apply assoc {} (mapcat reverse m)))

(defn replace-slice [v start items]
  (if (empty? items)
    v
    (recur (assoc v start (first items))
           (+ 1 start)
           (rest items))))