interop.clj

(declare RandState :: Type)

#clj (defn make-rand-state-impl [seed]
       (clojure.core/atom (clojure.core/long seed)))

#clj (defn next-rand-int-impl [state]
       (let [r (java.util.SplittableRandom. (clojure.core/long @state))
             v (.nextInt r)
             next-seed (.nextLong r)]
         (clojure.core/reset! state next-seed)
         v))

(declare make-rand-state :: (-> Int RandState)
  :clj make-rand-state-impl)
(declare next-rand-int :: (-> RandState Int)
  :clj next-rand-int-impl)