jdormit/sicp-logic
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Troubleshoot negation

Browse Source 
Negation still doesn't seem to be working, although everything else
looks good.
This commit is contained in:
Jeremy Dormitzer 2019-07-14 22:58:54 -04:00
parent 3e749a5804
commit d844c38df2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/sicp_logic/evaluator.clj
View File

@ -21,7 +21,7 @@
(defn negate [db operands input-frames] (defn negate [db operands input-frames]
(filter (filter
(fn [frame] (fn [frame]
(empty? (qeval db operands [frame]))) (empty? (qeval db (first operands) [frame])))
input-frames)) input-frames))
(defn execute [exp] (defn execute [exp]
@ -39,7 +39,8 @@
call call
frame frame
(fn [v f] (fn [v f]
(throw (IllegalArgumentException. (str "Unknown pattern variable -- LISP-VALUE: " v)))))) (throw
(IllegalArgumentException. (str "Unknown pattern variable -- LISP-VALUE: " v))))))
[frame] [frame]
[])) []))
input-frames)) input-frames))