Ad

Given a starting seed (which must be odd), produces a lazy sequence of "random" numbers generated by the infamous RANDU generator, starting with the seed itself.

(ns randu)

(defn randu-seq [x] (iterate #(mod (* 65539 %) 0x80000000) x))