Mode:
Duration:
1
2
3
4
5
6
:- dynamic(count/1).
count(3).
increment_if_less_than_5 :- count(C), C < 5 -> C1 is C + 1, retract(count(C)), assert(count(C1)); true.
% Example
?- increment_if_less_than_5, count(C), write(C), nl.Coding works best on desktop or with an external keyboard.