hg.stevelosh.com > flax

(in-package :flax.base)

(defun rand (bound)
  (pcg:pcg-random t bound))

(defmacro with-seed (seed &body body)
  `(let ((pcg::*global-generator* (pcg:make-pcg :seed ,seed))) ,@body))
author	Steve Losh <steve@stevelosh.com>
date	Mon, 05 Feb 2018 23:45:14 -0500
parents	55c0df99bd7a
children	ba8de6322022