From bbcb29a202436fc0e222e187f1fadf0b1f305465 Mon Sep 17 00:00:00 2001
From: Timotej Lazar <timotej.lazar@fri.uni-lj.si>
Date: Sun, 22 May 2016 17:48:30 +0200
Subject: Prolog: update denotational_semantics problems

---
 prolog/problems/algol/algol_3/common.py | 78 +++++++++++++++++++++++++++++++++
 1 file changed, 78 insertions(+)
 create mode 100644 prolog/problems/algol/algol_3/common.py

(limited to 'prolog/problems/algol/algol_3/common.py')

diff --git a/prolog/problems/algol/algol_3/common.py b/prolog/problems/algol/algol_3/common.py
new file mode 100644
index 0000000..415e1e5
--- /dev/null
+++ b/prolog/problems/algol/algol_3/common.py
@@ -0,0 +1,78 @@
+id = 176
+number = 10
+visible = False
+facts = None
+
+solution = '''\
+algol(fun(S0,S,apply176([printout=[]|S0],S,Minstructs))) -->
+  [begin], instructs176(Minstructs), [end].
+
+instructs176(Minstr) --> instr176(Minstr).
+instructs176(fun(S0,S,
+  (apply176(S0,S1,Minstr),
+   apply176(S1,S,Minstructs))))
+  -->
+  instr176(Minstr), instructs176(Minstructs).
+
+instr176(Massign) --> assign176(Massign).
+instr176(fun(S0,[printout = L1|S1],
+  (memb(X = V,S0),
+   del(printout = L0,S0,S1),
+   conc(L0,[V],L1))))
+  -->
+  [print(X)].
+instr176(fun(S0,S,
+  loop176(S0,Mcond,Minstructs,S)))
+  -->
+  [while], cond176(Mcond), [do,begin], instructs176(Minstructs), [end].
+
+assign176(fun(S0,[X = Value|S1],
+  (apply176(S0,Value,Mexpr),
+   del(X = _,S0,S1))))
+  -->
+  var176(X), [:=], expr176(Mexpr).
+
+cond176( fun( S, TruthVal,
+  (apply176(S,Val1,ME1),
+   apply176(S,Val2,ME2),
+   (Val1 < Val2,!,TruthVal = true ; TruthVal = false))))
+  -->
+  expr176(ME1), [<], expr176(ME2).
+
+var176(X) --> [X], {atom(X)}.
+
+expr176(fun(S,Value,eval(Expr,S,Value))) -->
+  [Expr].
+
+apply176(In, Out, fun(In, Out, Goals)) :-
+  call(Goals).
+
+loop176(State0, Mcond, _, State0) :-
+  apply176( State0, false, Mcond), !.
+loop176(S0, Mcond, MBody, S) :-
+  copy_term( MBody, MBodyCopy),
+  apply176( S0, S1, MBody),
+  loop176( S1, Mcond, MBodyCopy, S).
+
+eval176(N, _, N) :-
+  number176( N), !.
+eval176(X, State, Val) :- % A program variable
+  atom(X), !,
+  memb(X = Val, State).
+eval176(E1 + E2, State, Val) :- !,
+  eval176(E1, State, V1),
+  eval176(E2, State, V2),
+  Val is V1 + V2.
+eval176(E1 - E2, State, Val) :- !,
+  eval176(E1, State, V1),
+  eval176(E2, State, V2),
+  Val is V1 - V2.
+eval176(E1 * E2, State, Val) :- !,
+  eval176(E1, State, V1),
+  eval176(E2, State, V2),
+  Val is V1 * V2.
+eval176(E1 / E2, State, Val) :- !,
+  eval176(E1, State, V1),
+  eval176(E2, State, V2),
+  Val is V1 /  V2.
+'''
-- 
cgit v1.2.1