RE : crazy run-time fluctuations (mostly super-slow) -- a bit more data
Subject: RE : crazy run-time fluctuations (mostly super-slow) -- a bit more data
From: Sidney Marshall
Date: Sat, 22 Oct 2011 23:24:56 -0400
To compare random-states you need to use "equalp". Then the following
works (typed directly to ACL):
CG-USER(14): (SETQ S (MAKE-RANDOM-STATE T))
#S(RANDOM-STATE :MTI 624
:FIXSEED #(2560852177 155829341 4083677049 692801765 894462049
789676717 391474569 1937877941 3225661681
388099581 ...))
CG-USER(15): (SETQ SS (MAKE-RANDOM-STATE S))
#S(RANDOM-STATE :MTI 624
:FIXSEED #(2560852177 155829341 4083677049 692801765 894462049
789676717 391474569 1937877941 3225661681
388099581 ...))
CG-USER(16): (RANDOM 1000 S)
143
CG-USER(17): (RANDOM 1000 SS)
143
CG-USER(18): (equalp s ss)
T
CG-USER(19):
(note that case is weird in this mode of Allegro Common Lisp)
The predicate "equal" doesn't compare the deep structure of
structures but just their pointer values in the case of random-states.
--Sidney Marshall