Arithmetic evaluation: Difference between revisions
m
→{{header|Prolog}}: removed silly cut I left in by mistake
(Added Prolog version) |
m (→{{header|Prolog}}: removed silly cut I left in by mistake) |
||
Line 41:
% Evaluator
evaluate(E, E) :- number(E)
evaluate(A + B, E) :- evaluate(A, Ae), evaluate(B, Be), E is Ae + Be.
evaluate(A - B, E) :- evaluate(A, Ae), evaluate(B, Be), E is Ae - Be.
|