summaryrefslogtreecommitdiff
path: root/rules/random_choice.pl
blob: 3bd4a9161ccc52f4aa8091d924f9801340e0aa98 (plain)
1
2
random_choice(_, Choice, _, _) :-
	random(Number),	(Number < 0.5 -> Choice=c ; Choice=d).