random_choice.pl - wbs - Prisoners Dilemma implemented in Prolog

summary refs log tree commit diff

path: root/random_choice.pl

blob: 3bd4a9161ccc52f4aa8091d924f9801340e0aa98 (plain)

1 2	`random_choice(_, Choice, _, _) :- random(Number), (Number < 0.5 -> Choice=c ; Choice=d).`