inRange(I, J, K) :- K > I, K < J.
:- inRange
(0, 10, 5), write(yes
). :- inRange
(0, 10, -1), write(yes
). :- inRange
(0, 10, 11), write(yes
).
aW5SYW5nZShJLCBKLCBLKSA6LSBLID4gSSwgSyA8IEouCgo6LSBpblJhbmdlKDAsIDEwLCA1KSwgd3JpdGUoeWVzKS4KOi0gaW5SYW5nZSgwLCAxMCwgLTEpLCB3cml0ZSh5ZXMpLgo6LSBpblJhbmdlKDAsIDEwLCAxMSksIHdyaXRlKHllcyku