check[x_] := If[x == -1, 1, 0];
{-(1/((check[{##}[[6]]])[[1]] (1 - d) + (check[{##}[[3]]])[[
1]] d))} & @@@ {{0, 0, -1, 1, 0, -1}, {0, 0, -1, 1, 0, 0}, {0,
0, -1, 1, 1, -1}}
{-(1/((check[{##}[[6]]])[[1]] (1 - d) + (check[{##}[[3]]])[[
1]] d))} & @@@ {{0, 0, -1, 1, 0, -1}, {0, 0, -1, 1, 0, 0}, {0,
0, -1, 1, 1, -1}}