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

skip_list is now built-in

This commit is contained in:
Vitor Santos Costa 2012-01-09 23:29:55 +00:00
parent d3c7800ab4
commit b185db9909
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
GPL/error.pl
View File

@ -246,24 +246,3 @@ is_list_or_partial_list(L0) :-
'$skip_list'(_, L0,L),
( var(L) -> true ; L == [] ).
:- if(current_prolog_flag(dialect, yap)).
% UWN: only an approximation
'$skip_list'(N, Xs0,Xs) :-
'$skip_list_i'(0,N, Xs0,Xs).
'$skip_list_i'(N0,N, Xs0,Xs) :-
var(Xs0), !,
N0 = N,
Xs0 = Xs.
'$skip_list_i'(N0,N, [],Xs) :- !,
N0 = N,
Xs = [].
'$skip_list_i'(N0,N, [_|Xs0],Xs) :- !,
N1 is N0 + 1,
'$skip_list_i'(N1,N, Xs0,Xs).
'$skip_list_i'(N,N, Xs,Xs).
:- endif.