Changeset 4333
- Timestamp:
- 06/30/08 09:21:37 (3 months ago)
- Files:
-
- 1 modified
-
trunk/library/randomp.lgt (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/library/randomp.lgt
r3687 r4333 3 3 4 4 :- info([ 5 version is 1.0 ,5 version is 1.01, 6 6 author is 'Paulo Moura', 7 date is 200 0/7/24,7 date is 2008/6/30, 8 8 comment is 'Random number generator protocol.']). 9 9 … … 22 22 23 23 :- public(randseq/4). 24 :- mode(randseq(+integer, +integer, +integer, -list ), zero_or_one).25 :- mode(randseq(+integer, +float, +float, -list ), zero_or_one).24 :- mode(randseq(+integer, +integer, +integer, -list(integer)), zero_or_one). 25 :- mode(randseq(+integer, +float, +float, -list(float)), zero_or_one). 26 26 :- info(randseq/4, [ 27 27 comment is 'Returns a list of Length random values in the interval [Lower, Upper[.', … … 29 29 30 30 :- public(randset/4). 31 :- mode(randset(+integer, +integer, +integer, -list ), zero_or_one).32 :- mode(randset(+integer, +float, +float, -list ), zero_or_one).31 :- mode(randset(+integer, +integer, +integer, -list(integer)), zero_or_one). 32 :- mode(randset(+integer, +float, +float, -list(float)), zero_or_one). 33 33 :- info(randset/4, [ 34 34 comment is 'Returns an ordered set of Length random values in the interval [Lower, Upper[.',
