mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-24 22:04:13 +00:00
51497341cc
Estimated hours taken: 0.1 Add the DPPD (dozens of problems in partial deduction) suite to the tests directory.
37 lines
657 B
Mathematica
37 lines
657 B
Mathematica
:- module sum.
|
|
|
|
:- interface.
|
|
|
|
:- pred sumsumsum(list(int)::in, int::out) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module int, list.
|
|
|
|
sumsumsum(A, B) :-
|
|
sum1(A, 0, C),
|
|
sum2(A, 0, D),
|
|
sum3(A, 0, E),
|
|
B is C + D + E.
|
|
|
|
:- pred sum1(list(int)::in, int::in, int::out) is det.
|
|
|
|
sum1([], Sum, Sum).
|
|
sum1([X | Xs], Sum0, Sum) :-
|
|
Sum1 is Sum0 + X,
|
|
sum1(Xs, Sum1, Sum).
|
|
|
|
:- pred sum2(list(int)::in, int::in, int::out) is det.
|
|
|
|
sum2([], Sum, Sum).
|
|
sum2([X | Xs], Sum0, Sum) :-
|
|
Sum1 is Sum0 + X,
|
|
sum2(Xs, Sum1, Sum).
|
|
|
|
:- pred sum3(list(int)::in, int::in, int::out) is det.
|
|
|
|
sum3([], Sum, Sum).
|
|
sum3([X | Xs], Sum0, Sum) :-
|
|
Sum1 is Sum0 + X,
|
|
sum3(Xs, Sum1, Sum).
|