15 lines
283 B
Prolog
15 lines
283 B
Prolog
accumulator :-
|
|
Sum = 0,
|
|
shift(Number),
|
|
NewSum is Sum + Number,
|
|
write("Result is: "), writeln(NewSum).
|
|
|
|
main :-
|
|
reset(accumulator, Number, Cont),
|
|
between(1, 5, Number),
|
|
forall()
|
|
call(Cont),
|
|
writeln("End of calculation").
|
|
|
|
:- initialization(main).
|
|
|