Commit 78dc6cdd authored by dtc's avatar dtc
Browse files

Update the setup of the random state.

parent 371167e2
......@@ -1444,22 +1444,7 @@
;;; Utype :SIGMOID, Otype :SIGMOID, RawErr NIL, Pool 8
(defvar *save-random-state*
#+cmu
#S(RANDOM-STATE
J 6
K 37
SEED #(495959915 319289337 100972028 135321524 137984323
177928266 385820814 500959740 328846885 254554634
354844676 133704123 362896421 217869951 380210131
323670005 366246053 40575617 346460653 10417936
34276234 300730891 211595838 199986777 291429322
1196272 425488031 328015953 24567252 297307474
82341400 29130711 247126684 98716216 478723257
47355455 81983578 248879315 97829219 533448623
148633156 77868250 28344376 162872116 404460195
321766796 8557425 441861346 455213668 302826847
256874625 271153816 11749650 277043774 234844262))
#-cmu (make-random-state))
(make-random-state))
(defun time-two-spirals ()
(setq *random-state* (make-random-state *save-random-state*))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment