[apdar]

Beautiful code: graph search in prolog. So much in as few lines as possible[1]

[1]: http://www.cse.unsw.edu.au/~billw/cs9414/notes/prolog/path-t...