use std::io::{Read, stdin}; fn main() { let mut buf = String::new(); stdin().read_to_string(&mut buf).unwrap(); let mut tok = buf.split_whitespace(); let mut get = || tok.next().unwrap(); macro_rules! get { ($t:ty) => (get().parse::<$t>().unwrap()); () => (get!(usize)); } let n = get!(); let k = get!(); let mut ls = vec![]; for _ in 0..k { ls.push(get!()); } let mut grid = vec![]; for _ in 0..n { let tmp: Vec<_> = get().as_bytes() .iter() .map(|&ch| (ch - b'0') as i32) .collect(); grid.push(tmp); } // println!("{:?}", grid); let mut ans = vec![]; for &l in ls.iter() { let mut max_sum_i = 0; let mut max_sum_j = 0; let mut max_i = 0; let mut max_j = 0; for i in 0..n { let mut sum = 0; for j in 0..l { sum += grid[i][j]; } if sum > max_sum_i { max_sum_i = sum; max_i = i; } let mut sum = 0; for j in 0..l { sum += grid[j][i]; } if sum > max_sum_j { max_sum_j = sum; max_j = i; } } if max_sum_i > max_sum_j { for j in 0..l { grid[max_i][j] = 1 - grid[max_i][j]; } ans.push((true, max_i, l, 0)); } else { for i in 0..l { grid[i][max_j] = 1 - grid[i][max_j]; } ans.push((false, max_j, l, 0)); } } for _ in 0..10 { for i in 0..ans.len() { let (b, j, l, p0) = ans[i]; if b { for p in p0..p0+l { grid[j][p] = 1 - grid[j][p]; } } else { for p in p0..p0+l { grid[p][j] = 1 - grid[p][j]; } } let mut max_sum_i = 0; let mut max_i = 0; let mut max_i_p = 0; let mut max_sum_j = 0; let mut max_j = 0; let mut max_j_p = 0; for x in 0..n { for y in 0..n-l+1 { let mut sum = 0; for z in y..y+l { sum += grid[x][z]; } if sum > max_sum_i { max_sum_i = sum; max_i = x; max_i_p = y; } let mut sum = 0; for z in y..y+l { sum += grid[z][x]; } if sum > max_sum_j { max_sum_j = sum; max_j = x; max_j_p = y; } } } let (b, j, p0) = if max_sum_i > max_sum_j { (true, max_i, max_i_p) } else { (false, max_j, max_j_p) }; if b { for p in p0..p0+l { grid[j][p] = 1 - grid[j][p]; } } else { for p in p0..p0+l { grid[p][j] = 1 - grid[p][j]; } } ans[i] = (b, j, l, p0); } } for &(b, i, l, p) in ans.iter() { if b { println!("{0} {1} {0} {2}", i + 1, p + 1, p + l); } else { println!("{1} {0} {2} {0}", i + 1, p + 1, p + l); } } }