summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--random_choice.pl6
1 files changed, 2 insertions, 4 deletions
diff --git a/random_choice.pl b/random_choice.pl
index 43e4735..3bd4a91 100644
--- a/random_choice.pl
+++ b/random_choice.pl
@@ -1,4 +1,2 @@
-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), (Number < 0.5 -> Choice=c ; Choice=d).