Generate a list of 60-bit naturals.
(n-random-60-bit-nats n state) → (mv * state)
We just leave this enabled.
Function:
(defun n-random-60-bit-nats (n state) (declare (xargs :stobjs (state))) (declare (xargs :guard (natp n))) (let ((__function__ 'n-random-60-bit-nats)) (declare (ignorable __function__)) (random-list n (ash 1 60) state)))