The whole thing is kind of a mess.

2022-09-20 14:22:47 -07:00
parent d080cd20c7
commit 3f4e9d9fe2
40 changed files with 0 additions and 0 deletions
@@ -0,0 +1,18 @@
+?- sjc(add_twice, `[36 *] ii`).
+func(add_twice, [int(B), int(D)|A], [int(C), int(E)|A]) :-
+    maplist(call,
+            [clpfd:(36*B#=C), clpfd:(36*D#=E)]).
+true ;
+func(add_twice, [symbol(swap), int(D), int(B)|A], [int(C), int(E)|A]) :-
+    maplist(call,
+            [clpfd:(36*B#=C), clpfd:(36*D#=E)]).
+true ;
+func(add_twice, [symbol(dup), int(D)|A], [int(C), int(B)|A]) :-
+    maplist(call,
+            [clpfd:(36*B#=C), clpfd:(36*D#=B)]).
+true ;
+func(add_twice, [symbol(pop), int(D), int(B)|A], [int(C)|A]) :-
+    maplist(call,
+            [clpfd:(36*B#=C), clpfd:(36*D#=_)]).
+true .
+