# SCM Repository

# View of /sml/trunk/src/smlnj-lib/Util/rand-sig.sml

Parent Directory | Revision Log

Revision

File size: 996 byte(s)

**30**- (**download**) (**annotate**)*Thu Mar 12 01:05:59 1998 UTC*(22 years, 2 months ago) by*monnier*File size: 996 byte(s)

This commit was generated by cvs2svn to compensate for changes in r29, which included commits to RCS files with non-trunk default branches.

(* rand-sig.sml * * COPYRIGHT (c) 1993 by AT&T Bell Laboratories. See COPYRIGHT file for details. * COPYRIGHT (c) 1998 by AT&T Laboratories. * * Signature for a simple random number generator. * *) signature RAND = sig type rand = Word31.word val randMin : rand val randMax : rand val random : rand -> rand (* Given seed, return value randMin <= v <= randMax * Iteratively using the value returned by random as the * next seed to random will produce a sequence of pseudo-random * numbers. *) val mkRandom : rand -> unit -> rand (* Given seed, return function generating a sequence of * random numbers randMin <= v <= randMax *) val norm : rand -> real (* Map values in the range [randMin,randMax] to (0.0,1.0) *) val range : (int * int) -> rand -> int (* Map v, randMin <= v <= randMax, to integer range [i,j] * Exception - * Fail if j < i *) end (* RAND *)

root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |

Powered by ViewVC 1.0.0 |