address issues #111 and #108

This commit is contained in:
Mark Thom
2019-04-23 20:27:47 -06:00
parent cc09c68433
commit 01e57f83ee
2 changed files with 3 additions and 2 deletions

View File

@@ -8,6 +8,7 @@
between(Lower, Upper, X) :-
must_be(integer, Lower),
must_be(integer, Upper),
can_be(integer, X).
between_(Lower, Upper, X).
between_(Lower, Upper, Lower) :-
@@ -15,7 +16,7 @@ between_(Lower, Upper, Lower) :-
between_(Lower1, Upper, X) :-
Lower1 < Upper,
Lower2 is Lower1 + 1,
between(Lower2, Upper, X).
between_(Lower2, Upper, X).
enumerate_nats(I, I).
enumerate_nats(I0, N) :-