Arrays in Clojure, as non-functional as it gets ;)

gistfile1.clj

(defn foo [x]
  (cond
    (instance? Integer x) "Integer"
    (instance? String  x) "String"
    (instance? Boolean x) "Boolean"))

(defn array-foo [n]
  (let [items (object-array ["foo" 23 true]) result (object-array (* 3 n))]
    (dotimes [i n]
      (dotimes [j 3]
        (aset result i 
          (foo (aget items j)))))
   result))

(time (prn (count (array-foo 10000000))))