190 |
(if (coin) (random-nonnegative-real) |
(if (coin) (random-nonnegative-real) |
191 |
(- (random-nonnegative-real)))) |
(- (random-nonnegative-real)))) |
192 |
|
|
193 |
|
(defun random-fixnum () |
194 |
|
(+ (random (1+ (- most-positive-fixnum most-negative-fixnum))) |
195 |
|
most-negative-fixnum)) |
196 |
|
|
197 |
|
(defun random-from-interval (upper &optional (lower (- upper))) |
198 |
|
(+ (random (- upper lower)) lower)) |
199 |
|
|
200 |
(defun epsilon (number) |
(defun epsilon (number) |
201 |
(etypecase number |
(etypecase number |
202 |
(short-float short-float-epsilon) |
(short-float short-float-epsilon) |