Changes between Initial Version and Version 1 of Ticket #1120


Ignore:
Timestamp:
Jan 26, 2007 10:36:31 PM (7 years ago)
Author:
igloo
Comment:

This probably wants to go via being a proposal.

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #1120

    • Property Milestone changed from to Not GHC
  • Ticket #1120 – Description

    initial v1  
    55http://darcs.haskell.org/ghc-6.6/packages/base/System/Random.hs 
    66 
     7{{{ 
    78randomIvalInteger :: (RandomGen g, Num a) => (Integer, Integer) -> g -> (a, g) 
    89randomIvalInteger (l,h) rng 
     
    2021          in 
    2122          f (n-1) (fromIntegral x + acc * b) g' 
     23}}} 
    2224 
    2325One possible fix is to repeatedly sample from [0,n-1] until you get