$1 = 0 while(A[$1 / W + 1, $1 % W + 1] - B[$1 / W + 1, $1 % W + 1] == 0) $1 = $1 + 1 end return ($1 / W + 1, $1 % W + 1)