fork download
copy 
  1. adjacent([X,Y],[RX,Y]) :- RX is X -1.
  2. adjacent([X,Y],[RX,Y]) :- RX is X +1.
  3. adjacent([X,Y],[X,RY]) :- RY is Y - 1.
  4. adjacent([X,Y],[X,RY]) :- RY is Y + 1.
  5.  
  6. find_all :-
  7.     adjacent([2,2], [X,Y]),
  8.     write(X), write(' '), write(Y),nl,
  9.     fail.
  10.  
  11. find_all.
  12.  
  13. :- find_all.
Success #stdin #stdout 0.02s 6204KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 2
3 2
2 1
2 3
https://ideone.com/j73a5K
language:
Prolog (swi 7.6.4)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!