gistfile1.clj

(def xs (long-array (range 1000000)))
(def ys (long-array (range 1000000)))

(defn m [xs ys]
  (let [z 3]
    (loop [i (- (count xs) 1)]
      (aset #^longs ys i (* z (aget #^longs xs i)))
      (cond (> i 0)
        (recur (unchecked-dec i))
      )
    )
  )
)

(report-result (bench (m xs ys)) :verbose)