/[gcl]/gcl/ansi-tests/random.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/random.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sat Jan 17 22:34:46 2004 UTC revision 1.3 by pfdietz, Thu Dec 2 03:01:43 2004 UTC
# Line 82  Line 82 
82          collect (list x r))          collect (list x r))
83    nil)    nil)
84    
85    (deftest random.8
86      (let* ((f1 '(lambda (x) (random (if x 10 20))))
87             (f2 (compile nil f1)))
88        (values
89         (loop repeat 100 always (<= 0 (funcall f2 t) 9))
90         (loop repeat 100 always (<= 0 (funcall f2 nil) 19))))
91      t t)
92        
93    
94  ;;; Do more statistical tests here  ;;; Do more statistical tests here
95    
96                    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26