From a1187238c3e7378a92709eb666bacd5a2cd404da Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <Tibo.DePeuter@UGent.be>
Date: Thu, 15 May 2025 21:25:58 +0200
Subject: [PATCH] test: Summer example

---
 examples/basics/summer.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 examples/basics/summer.pl

diff --git a/examples/basics/summer.pl b/examples/basics/summer.pl
new file mode 100644
index 0000000..35a2eac
--- /dev/null
+++ b/examples/basics/summer.pl
@@ -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).