From 77e83a390c95c11def1422043c60f55352b2c5e1 Mon Sep 17 00:00:00 2001 From: Mark Thom Date: Sat, 30 Nov 2019 14:26:15 -0700 Subject: [PATCH] add sumlist/2 to lists.pl --- src/prolog/lib/lists.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/prolog/lib/lists.pl b/src/prolog/lib/lists.pl index ae207403..f3a4ef6b 100644 --- a/src/prolog/lib/lists.pl +++ b/src/prolog/lib/lists.pl @@ -104,7 +104,7 @@ maplist(Cont, [E1|E1s], [E2|E2s], [E3|E3s], [E4|E4s], [E5|E5s], [E6|E6s], [E7|E7 sumlist_([], S, S). sumlist_([N|Ns], S, S0) :- S1 is S0 + N, - sumlist(Ns, S, S1). + sumlist_(Ns, S, S1). sumlist(Ns, S) :- must_be(list, Ns), -- 2.54.0