suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Sometimes generate random integers.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-03-19 15:01:54 -04:00
parent 3e9595e910
commit ca2e6bd769
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/typed-racket/random-real.rkt
View File

@ -110,7 +110,7 @@
(define (random-integer->random-real E)
(define r (random))
;; probability 0.25 each
(cond [(r . < . 0.25) r]
(cond [(r . < . 0.25) E]
[(r . < . 0.50) (random-integer->random-exact-rational E)]
[(r . < . 0.75) (random-integer->random-flonum E)]
[else (random-integer->random-single-flonum E)]))