diff options
Diffstat (limited to 'rules/random_choice.pl')
-rw-r--r-- | rules/random_choice.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rules/random_choice.pl b/rules/random_choice.pl index 3bd4a91..8075afb 100644 --- a/rules/random_choice.pl +++ b/rules/random_choice.pl @@ -1,2 +1,5 @@ + +% Syntax: random_choice(+history, -choice, +state_in, -state_out) + random_choice(_, Choice, _, _) :- random(Number), (Number < 0.5 -> Choice=c ; Choice=d). |