Lines Matching full:random

3 ;;; Purpose:  Code to generate random rational number test cases.
8 ;; Generate a random natural number with the specified number of digits.
9 (define (random-big-natural digits)
13         (let ((rnd (random 10)))
21 ;; Generate a random integer with the specified number of digits and
23 (define (random-big-integer digits pneg)
24   (let ((base (random-big-natural digits)))
25     (if (< (random-real) pneg)
29 ;; Generate a random rational number with the specified number of numerator and
31 (define (random-big-rational n-digits d-digits pneg)
32   (let ((num (random-big-natural n-digits))
33         (den (random-big-natural d-digits)))
35         (random-big-rational n-digits d-digits pneg)
36         (if (< (random-real) pneg)
44     (random-big-rational n-digits d-digits prob-neg)))
53              (< (random-real) prob-backref))
54         (let ((ref (+ (random (- num 1)) 1)))
56         (random-big-rational n-digits d-digits prob-neg))))
63       ((1) (random-big-rational n-digits d-digits prob-neg))
64       ((2) (random-big-integer n-digits prob-neg))
66        (if (< (random-real) prob-backref)
68            (random-big-rational n-digits d-digits prob-neg))))))
73            (random-big-rational n-digits d-digits prob-neg))
77                     (+ (random 34) 2))
78                    ((< (random-real) 0.3)
83            (random max-dig))
87 ;; desired solution, return a function that generates a random test case for a