yap-6.3/Logtalk/library/randomp.lgt

:- protocol(randomp).


	:- info([
		version is 1.0,
		author is 'Paulo Moura',
		date is 2000/7/24,
		comment is 'Random number generator protocol.']).


	:- public(random/1).

	:- mode(random(-float), one).

	:- info(random/1, [
		comment is 'Returns a new random float value in the interval [0.0, 1.0[.',
		argnames is ['Random']]).


	:- public(random/3).

	:- mode(random(+integer, +integer, -integer), zero_or_one).
	:- mode(random(+float, +float, -float), zero_or_one).

	:- info(random/3, [
		comment is 'Returns a new random value in the interval [Lower, Upper[.',
		argnames is ['Lower', 'Upper', 'Random']]).


	:- public(randseq/4).

	:- mode(randseq(+integer, +integer, +integer, -list), zero_or_one).
	:- mode(randseq(+integer, +float, +float, -list), zero_or_one).

	:- info(randseq/4, [
		comment is 'Returns a list of Length random values in the interval [Lower, Upper[.',
		argnames is ['Length', 'Lower', 'Upper', 'List']]).


	:- public(randset/4).

	:- mode(randset(+integer, +integer, +integer, -list), zero_or_one).
	:- mode(randset(+integer, +float, +float, -list), zero_or_one).

	:- info(randset/4, [
		comment is 'Returns an ordered set of Length random values in the interval [Lower, Upper[.',
		argnames is ['Length', 'Lower', 'Upper', 'Set']]).


	:- public(reset_seed/0).

	:- mode(reset_seed, one).

	:- info(reset_seed/0, [
		comment is 'Resets the random seed to its default value.']).


	:- public(set_seed/1).

	:- mode(set_seed(+integer), zero_or_one).

	:- info(set_seed/1, [
		comment is 'Sets the random seed to the given value.',
		argnames is ['Seed']]).


:- end_protocol.