Mode:
Duration:
1
2
3
4
5
6
7
even(X) :- 0 is X mod 2.
print_even([]).
print_even([H|T]) :- even(H), write(H), nl, print_even(T).
print_even([H|T]) :- \+ even(H), print_even(T).
% Example
?- print_even([1,2,3,4,5]).Coding works best on desktop or with an external keyboard.