Changes between Initial Version and Version 1 of Ticket #1120


Ignore:
Timestamp:
Jan 26, 2007 10:36:31 PM (9 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