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

add sumlist/2 to lists.pl

Browse Source
This commit is contained in:
Mark Thom
2019-11-30 14:26:15 -07:00
parent 27b659c401
commit 77e83a390c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/prolog/lib/lists.pl
View File

@@ -104,7 +104,7 @@ maplist(Cont, [E1|E1s], [E2|E2s], [E3|E3s], [E4|E4s], [E5|E5s], [E6|E6s], [E7|E7
sumlist_([], S, S). sumlist_([], S, S).
sumlist_([N|Ns], S, S0) :- sumlist_([N|Ns], S, S0) :-
S1 is S0 + N, S1 is S0 + N,
sumlist(Ns, S, S1). sumlist_(Ns, S, S1).
sumlist(Ns, S) :- sumlist(Ns, S) :-
must_be(list, Ns), must_be(list, Ns),