Advertisement
Guest User

Untitled

a guest
Mar 13th, 2012
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.27 KB | None | 0 0
  1. > (run 1 (q)
  2.     (fresh (w1 w2 w3 x board)
  3.       (wire-link 1 2 w1)
  4.       (wire-link 2 4 w2)
  5.       (wire-link 5 x w3)
  6.       (== q (list w1 w2 w3))
  7.       (connectedo 3 5 q)))
  8. Exception: variable == is not bound
  9. Type (debug) to enter the debugger.
  10. > ==
  11. #<procedure>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement