summaryrefslogtreecommitdiff
path: root/random_choice.pl
diff options
context:
space:
mode:
Diffstat (limited to 'random_choice.pl')
-rw-r--r--random_choice.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/random_choice.pl b/random_choice.pl
index 3a2dfe3..43e4735 100644
--- a/random_choice.pl
+++ b/random_choice.pl
@@ -1,4 +1,4 @@
random_choice_do(c,Number):-Number < 0.5,!.
random_choice_do(d,_).
-random_choice(_, Choice) :- random(Number), random_choice_do(Choice, Number).
+random_choice(_, Choice, _, _) :- random(Number), random_choice_do(Choice, Number).