% Naive Prober: Like Tit for Tat, but sometimes, after the
% opponent has cooperated, it defects (e.g. at random, in
% one of ten rounds in average).

naive_prober_random(Number, d):-Number < 0.1,!.
naive_prober_random(_, c).

% Use opponents last decision
naive_prober([d|_],d,_,_).
% but only for for 90% if coorporated
naive_prober([c|_],Choice,_,_):-
	random(Number), naive_prober_random(Number, Choice).
% Fallback to coorporate if history is empty.
naive_prober([],c,_,_).