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))))