65 |
(let* ((upper-bound (* 1000 1000 1000)) |
(let* ((upper-bound (* 1000 1000 1000)) |
66 |
(lower-bound (- upper-bound)) |
(lower-bound (- upper-bound)) |
67 |
(spread (1+ (- upper-bound lower-bound)))) |
(spread (1+ (- upper-bound lower-bound)))) |
68 |
(loop for x = (+ (rationalize (random (float spread 1.0f0))) lower-bound) |
(loop for x = (+ (rational (random (float spread 1.0f0))) lower-bound) |
69 |
for y = (+ (rationalize (random (float spread 1.0f0))) lower-bound) |
for y = (+ (rational (random (float spread 1.0f0))) lower-bound) |
70 |
for prod = (* x y) |
for prod = (* x y) |
71 |
for prod2 = (rat-times x y) |
for prod2 = (rat-times x y) |
72 |
repeat 1000 |
repeat 1000 |
114 |
(let* ((upper-bound (* 1000 1000 1000 1000)) |
(let* ((upper-bound (* 1000 1000 1000 1000)) |
115 |
(lower-bound (- upper-bound)) |
(lower-bound (- upper-bound)) |
116 |
(spread (1+ (- upper-bound lower-bound)))) |
(spread (1+ (- upper-bound lower-bound)))) |
117 |
(flet ((%r () (+ (rationalize (random (float spread 1.0f0))) lower-bound))) |
(flet ((%r () (+ (rational (random (float spread 1.0f0))) lower-bound))) |
118 |
(loop for xr = (%r) |
(loop for xr = (%r) |
119 |
for xc = (%r) |
for xc = (%r) |
120 |
for x = (complex xr xc) |
for x = (complex xr xc) |