ceiling-aux.lsp 2.54 KB
 pfdietz committed Aug 20, 2003 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ``````;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Tue Aug 19 06:52:02 2003 ;;;; Contains: Aux. functions for CEILING (in-package :cl-test) (defun ceiling.1-fn () (loop for n = (- (random 2000000000) 1000000000) for d = (1+ (random 10000)) for vals = (multiple-value-list (ceiling n d)) for (q r) = vals for n2 = (+ (* q d) r) `````` pfdietz committed Sep 05, 2003 15 `````` repeat 1000 `````` pfdietz committed Aug 20, 2003 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 `````` unless (and (eql (length vals) 2) (integerp q) (= n n2) (integerp r) (< (- d) r 1)) collect (list n d q r n2))) (defun ceiling.2-fn () (loop for num = (random 1000000000) for denom = (1+ (random 1000)) for n = (/ num denom) for d = (1+ (random 10000)) for vals = (multiple-value-list (ceiling n d)) for (q r) = vals for n2 = (+ (* q d) r) `````` pfdietz committed Sep 05, 2003 31 `````` repeat 1000 `````` pfdietz committed Aug 20, 2003 32 33 34 35 36 37 38 39 40 41 42 43 `````` unless (and (eql (length vals) 2) (integerp q) (<= r 0) (< (- d) r) (= n n2)) collect (list n d q r n2))) (defun ceiling.3-fn (width) (loop for n = (- (random width) (/ width 2)) for vals = (multiple-value-list (ceiling n)) for (q r) = vals for n2 = (+ q r) `````` pfdietz committed Sep 05, 2003 44 `````` repeat 1000 `````` pfdietz committed Aug 20, 2003 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 `````` unless (and (eql (length vals) 2) (integerp q) (= n n2) (<= 0 (- r)) (< (- r) 1) ) collect (list n q r n2))) (defun ceiling.7-fn () (loop for numerator = (- (random 10000000000) 5000000000) for denominator = (1+ (random 100000)) for n = (/ numerator denominator) for vals = (multiple-value-list (ceiling n)) for (q r) = vals for n2 = (+ q r) `````` pfdietz committed Sep 05, 2003 60 `````` repeat 1000 `````` pfdietz committed Aug 20, 2003 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 `````` unless (and (eql (length vals) 2) (integerp q) (rationalp r) (= n n2) (<= 0 (- r)) (< (- r) 1) ) collect (list n q r n2))) (defun ceiling.8-fn () (loop for num1 = (- (random 10000000000) 5000000000) for den1 = (1+ (random 100000)) for n = (/ num1 den1) for num2 = (- (1+ (random 1000000))) for den2 = (1+ (random 1000000)) for d = (/ num2 den2) for vals = (multiple-value-list (ceiling n d)) for (q r) = vals for n2 = (+ (* q d) r) `````` pfdietz committed Sep 05, 2003 80 `````` repeat 1000 `````` pfdietz committed Aug 20, 2003 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 `````` unless (and (eql (length vals) 2) (integerp q) (rationalp r) (<= 0 r) (< r (- d)) (= n n2)) collect (list n q d r n2))) (defun ceiling.9-fn () (loop for num1 = (- (random 1000000000000000) 500000000000000) for den1 = (1+ (random 10000000000)) for n = (/ num1 den1) for num2 = (- (1+ (random 1000000000))) for den2 = (1+ (random 10000000)) for d = (/ num2 den2) for vals = (multiple-value-list (ceiling n d)) for (q r) = vals for n2 = (+ (* q d) r) `````` pfdietz committed Sep 05, 2003 99 `````` repeat 1000 `````` pfdietz committed Aug 20, 2003 100 101 102 103 104 105 106 `````` unless (and (eql (length vals) 2) (integerp q) (rationalp r) (<= 0 r) (< r (- d)) (= n n2)) collect (list n q d r n2)))``````