chore: Demo & examples

This commit is contained in:
Tibo De Peuter 2025-05-18 23:27:35 +02:00
parent 61178cbeac
commit b294467587
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
9 changed files with 228 additions and 23 deletions

View file

@ -4,7 +4,7 @@ printer :-
shift(Name),
write(Name), write(", ").
main :-
ceremony_main :-
writeln("/Ceremony starts/"),
reset(printer, Name, Cont),
\+ \+ ( Name = "John", call(Cont) ),
@ -12,4 +12,4 @@ main :-
writeln("and my parents!"),
writeln("/Ceremony ends/").
:- initialization(main).
:- initialization(ceremony_main).