function b = EAGER_OK_board(board,breezes,stenches)
%

UNKNOWN = -1;
PIT = 1;
WUMPUS = 3;

b = 1;

for r = 1:4
    for c = 1:4
        if breezes(r,c)>UNKNOWN
            neis = BR_Wumpus_neighbors(c,4-r+1);
            [num_neis,~] = size(neis);
            neis_rc = neis;
            neis_rc(:,1) = 4 - neis(:,2) + 1;
            neis_rc(:,2) = neis(:,1);
            found = 0;
            for n = 1:num_neis
                if board(neis_rc(n,1),neis_rc(n,2))==PIT
                    found = 1;
                end
            end
            if breezes(r,c)~=found
                b = 0;
                return
            end
            found = 0;
            for n = 1:num_neis
                if board(neis_rc(n,1),neis_rc(n,2))==WUMPUS
                    found = 1;
                end
            end
            if stenches(r,c)~=found
                b = 0;
                return
            end
        end
    end
end
