fix: Fixes
This commit is contained in:
parent
a1187238c3
commit
83f65bd683
8 changed files with 65 additions and 29 deletions
15
examples/meta/calculator.pl
Normal file
15
examples/meta/calculator.pl
Normal file
|
@ -0,0 +1,15 @@
|
|||
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).
|
||||
|
Reference in a new issue