diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix nth/4 going backwards (obs from Daniel Diaz).

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-10-23 23:19:55 +01:00
parent 0ea348c26d
commit 981d060ffb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/lists.yap
View File

@ -135,7 +135,7 @@ find_nth(N, [_|Tail], Elem) :-
generate_nth(I, I, [Head|_], Head). generate_nth(I, I, [Head|_], Head).
generate_nth(I, IN, [_|List], El) :- generate_nth(I, IN, [E|List], El) :-
I1 is I+1, I1 is I+1,
generate_nth(I1, IN, List, El). generate_nth(I1, IN, List, El).
@ -184,7 +184,7 @@ find_nth(N, [Head|Tail], Elem, [Head|Rest]) :-
generate_nth(I, I, [Head|Tail], Head, Tail). generate_nth(I, I, [Head|Tail], Head, Tail).
generate_nth(I, IN, [_|List], El, Tail) :- generate_nth(I, IN, [E|List], El, [E|Tail]) :-
I1 is I+1, I1 is I+1,
generate_nth(I1, IN, List, El, Tail). generate_nth(I1, IN, List, El, Tail).