Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn solve-goal [goal]
- (doseq [rule (fetch-rules goal)]
- (if (empty? rule)
- 0.9 ; a truth value
- (.submit completion-service (solve-rule rule))))
- ; take the first result
- (if (= result 0.9)
- result
- (.get (.take completion-service))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement