add sum_list/3

2008-11-03 16:00:22 +00:00
parent 259313b603
commit 8938666bf5
2 changed files with 10 additions and 0 deletions
--- a/library/lists.yap
+++ b/library/lists.yap
@@ -29,6 +29,7 @@
 	   sublist/2,
 	   substitute/4,
 	   sum_list/2,
+	   sum_list/3,
 	   suffix/2,
 	   sumlist/2,
 	   list_concat/2,
@@ -316,6 +317,9 @@ suffix(Suffix, [_|List]) :-
 sumlist(Numbers, Total) :-
 	sumlist(Numbers, 0, Total).

+sum_list(Numbers, SoFar, Total) :-
+	sumlist(Numbers, SoFar, Total).
+
 sum_list(Numbers, Total) :-
 	sumlist(Numbers, 0, Total).