% Author: MACHIZAUD Andréa
% Date: 14/10/2010

%Border_top   = [1,2,3,4].
%Border_left  = [6,16,26,36].
%Border_right = [15,25,35,45].
%Border_down  = [47,48,49,50].

%corner_top_right is [5].
%corner_bottom_left is [46].

around(X,LIST) :-
  member(X,[1,2,3,4]),
  LIST = [X+5,X+6].
  
around(X,LIST) :-
  member(X,[6,16,26,36]),
  LIST = [X-5,X+5].

around(X,LIST) :-
  member(X,[15,25,35,45]),
  LIST = [X-5,X+5].

around(X,LIST) :-
  member(X,[47,48,49,50]),
  LIST = [X-5,X-4].