tdpeuter/2025LogProg-project-GhentProlog
tdpeuter/2025LogProg-project-GhentProlog
Archived
1
Fork 0
Code Issues Releases Activity Actions

test: Summer example

Browse source
This commit is contained in:
Tibo De Peuter 2025-05-15 21:25:58 +02:00 • committed by Tibo De Peuter
parent 26c339b8f8
commit a1187238c3
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
1 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
examples/basics/summer.pl Normal file
View file

@ -0,0 +1,22 @@
summer(Start, End, 0) :- Start == End.
summer(Start, End, Sum) :-
Start \== End,
Next is Start + 1,
summer(Next, End, Rest),
writeln(rest(Rest)),
Sum is Start + Rest,
writeln(sum(Sum)).
my_sum :-
write('Enter start: '),
read(Start),
write('Enter end: '),
read(End),
summer(Start, End, Sum),
write('The sum is: '),
write(Sum), nl.
main :-
summer(1, 5, Sum).
:- initialization(main).