richhickey

;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;   which can be found in the file epl-v10.html at the root of this distribution.
;   By using this software in any fashion, you are agreeing to be bound by
;   the terms of this license.
;   You must not remove this notice, or any other, from this software.

(set! *warn-on-reflection* true)

nathanmarz

(defn map-incr-unsafe []
  (let [m (java.util.HashMap.)]
	  (.put m "a" 0)
	  (doseq [i (range 1000000)]
	    (let [a (.get m "a")]
		  (.put m "a" (inc a))
		  ))))

(defn map-incr-safe []
  (let [o (Object.)

ptaoussanis

(defmacro iff [test & {:keys [then else]}] `(if ~test ~then ~else))
(comment (iff false
              :then (println "true")
              :else (println "false")))

(defmacro iff-let [bindings & {:keys [then else]}] `(if-let ~bindings ~then ~else))
(comment (iff-let [x true] :else "false" :then x))

(defmacro if-lets
  "Like `if-let` but binds multiple values iff all tests are true."