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

make length steadfast (from Ulrich Neumerkel).

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-15 20:54:14 -05:00
parent 7953004610
commit 8cfd6cf7fc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/sort.yap
View File

@ -37,9 +37,9 @@ length(L,M) :- '$$_length2'(M,L).
-> ->
L = [] L = []
; ;
L = [_|L1],
N > 0, N > 0,
N1 is N - 1, N1 is N - 1,
L = [_|L1],
'$$_length2'(N1, L1) '$$_length2'(N1, L1)
). ).