% 2.11 (*) Compare the two methods of calculating Euler's totient function.
% Use the solutions of problems 2.09 and 2.10 to compare the algorithms.
% Take the number of logical inferences as a measure for efficiency.
:- ensure_loaded(p2_09).
:- ensure_loaded(p2_10).
totient_test(N) :-
write('totient_phi (P34):'),
time(totient_phi(N,Phi1)),
write('result = '), write(Phi1), nl,
write('totient_phi_2 (P37):'),
time(totient_phi_2(N,Phi2)),
write('result = '), write(Phi2), nl.