Mode:
Duration:
1
2
3
4
5
6
7
:- dynamic(count/1).
count(0).
increment :- count(C), C1 is C + 1, retract(count(C)), assert(count(C1)).
reset :- retract(count(_)), assert(count(0)).
% Example
?- increment, increment, count(C), write(C), nl, reset, count(C2), write(C2), nl.Coding works best on desktop or with an external keyboard.