gistfile1.clj

(ns my.numeric.test
  (:import [fiji.scripting Weaver]))

(def a (ref nil))

; Compile once
(def w (Weaver/inline
	"int n = ((Number)ref.deref()).intValue();
        double sum = 0;
        for (int i=0; i<n; ++i)  {
          sum += Math.random();
        }
        return sum;"
        {"ref" a}
        Double true))

; Run many times by altering 'a' to new numbers (here the same is used every time)
(println
  (dotimes [i 10]
    (dosync (alter a (fn [_] 300000)))
    (time (.call w))))