37 |
(let* ((upper-bound most-positive-fixnum) |
(let* ((upper-bound most-positive-fixnum) |
38 |
(lower-bound most-negative-fixnum) |
(lower-bound most-negative-fixnum) |
39 |
(spread (- upper-bound lower-bound))) |
(spread (- upper-bound lower-bound))) |
40 |
(flet ((%r () (- (random spread) lower-bound))) |
(flet ((%r () (+ (random spread) lower-bound))) |
41 |
(loop for x = (%r) |
(loop for x = (%r) |
42 |
for y = (%r) |
for y = (%r) |
43 |
for z = (%r) |
for z = (%r) |
57 |
(let* ((upper-bound 1000000000000000) |
(let* ((upper-bound 1000000000000000) |
58 |
(lower-bound -1000000000000000) |
(lower-bound -1000000000000000) |
59 |
(spread (- upper-bound lower-bound))) |
(spread (- upper-bound lower-bound))) |
60 |
(flet ((%r () (- (random spread) lower-bound))) |
(flet ((%r () (+ (random spread) lower-bound))) |
61 |
(loop for x = (%r) |
(loop for x = (%r) |
62 |
for y = (%r) |
for y = (%r) |
63 |
for z = (%r) |
for z = (%r) |
77 |
(let* ((upper-bound most-positive-fixnum) |
(let* ((upper-bound most-positive-fixnum) |
78 |
(lower-bound most-negative-fixnum) |
(lower-bound most-negative-fixnum) |
79 |
(spread (- upper-bound lower-bound))) |
(spread (- upper-bound lower-bound))) |
80 |
(flet ((%r () (- (random spread) lower-bound))) |
(flet ((%r () (+ (random spread) lower-bound))) |
81 |
(loop for x = (/ (%r) (max 1 (%r))) |
(loop for x = (/ (%r) (max 1 (%r))) |
82 |
for y = (/ (%r) (max 1 (%r))) |
for y = (/ (%r) (max 1 (%r))) |
83 |
for z = (/ (%r) (max 1 (%r))) |
for z = (/ (%r) (max 1 (%r))) |
113 |
(let* ((upper-bound most-positive-fixnum) |
(let* ((upper-bound most-positive-fixnum) |
114 |
(lower-bound most-negative-fixnum) |
(lower-bound most-negative-fixnum) |
115 |
(spread (- upper-bound lower-bound))) |
(spread (- upper-bound lower-bound))) |
116 |
(flet ((%r () (- (random spread) lower-bound))) |
(flet ((%r () (+ (random spread) lower-bound))) |
117 |
(loop |
(loop |
118 |
for xr = (%r) |
for xr = (%r) |
119 |
for xi = (%r) |
for xi = (%r) |
389 |
(list x x)) |
(list x x)) |
390 |
collect (list x eps eps2)) |
collect (list x eps eps2)) |
391 |
nil) |
nil) |
|
|
|
|
|
|