Contents

create((X,Y)) :- X >= 0, Y >= 0, 7 >= X, 7 >= Y.

column((_, Y), (_, V)) :- Y =:= V.

row((X, _), (U, _)):- X =:= U.

diagonal((X, Y), (U, V)) :-  (X-Y) =:= (U-V), !; (X+Y) =:= (U+V).

attack((X, Y), (U, V)) :-
  column((X, Y), (U, V)), !;
  row((X, Y), (U, V)), !;
  diagonal((X, Y), (U, V)).

Version data entries

68 entries across 68 versions & 1 rubygems

Version	Path
trackler-2.2.1.119	tracks/prolog/exercises/queen-attack/queen_attack.example
trackler-2.2.1.118	tracks/prolog/exercises/queen-attack/queen_attack.example
trackler-2.2.1.117	tracks/prolog/exercises/queen-attack/queen_attack.example
trackler-2.2.1.116	tracks/prolog/exercises/queen-attack/queen_attack.example
trackler-2.2.1.115	tracks/prolog/exercises/queen-attack/queen_attack.example
trackler-2.2.1.114	tracks/prolog/exercises/queen-attack/queen_attack.example
trackler-2.2.1.113	tracks/prolog/exercises/queen-attack/queen_attack.example
trackler-2.2.1.111	tracks/prolog/exercises/queen-attack/queen_attack.example