diff options
Diffstat (limited to 'random_choice.pl')
-rw-r--r-- | random_choice.pl | 2 |
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). |