rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed redundant choicepoint from between/3

Browse Source
This commit is contained in:
notoria
2021-01-30 17:45:55 +01:00
parent 70aa4934c5
commit dfd7ac633a
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/lib/between.pl
View File

@@ -12,15 +12,17 @@ between(Lower, Upper, X) :-
( nonvar(X) -> ( nonvar(X) ->
Lower =< X, Lower =< X,
X =< Upper X =< Upper
; between_(Lower, Upper, X) ; compare(Ord, Lower, Upper),
between_(Ord, Lower, Upper, X)
). ).
between_(Lower, Upper, Lower) :- between_(<, Lower0, Upper, X) :-
Lower =< Upper. ( X = Lower0
between_(Lower1, Upper, X) :- ; Lower1 is Lower0 + 1,
Lower1 < Upper, compare(Ord, Lower1, Upper),
Lower2 is Lower1 + 1, between_(Ord, Lower1, Upper, X)
between_(Lower2, Upper, X). ).
between_(=, Upper, Upper, Upper).
enumerate_nats(I, I). enumerate_nats(I, I).
enumerate_nats(I0, N) :- enumerate_nats(I0, N) :-