chore: Demo & examples

2025-05-18 23:27:35 +02:00 · 2025-05-18 23:27:35 +02:00 · b294467587
commit b294467587
parent 61178cbeac
9 changed files with 228 additions and 23 deletions
--- a/examples/meta/interpreter.pl
+++ b/examples/meta/interpreter.pl
@ -0,0 +1,27 @@
+interpreter :-
+    interpreter_prompt,
+    read(Goal),
+    interpreter(Goal).
+
+interpreter_prompt :- write('Next Command ?-- ').
+
+interpreter(exit) :- !.
+interpreter(Goal) :-
+    ground(Goal), !,
+    solve_ground(Goal),
+    interpreter.
+interpreter(Goal) :-
+    solve(Goal),
+    interpreter.
+
+solve_ground(Goal) :-
+    call(Goal),
+    !,
+    writeln('True :)').
+solve_ground(_) :- writeln('False :(').
+
+solve(Goal) :-
+    call(Goal),
+    writeln(Goal),
+    fail.
+solve(_) :- writeln('No more solutions :/').