toI(s=readline()) = parse(Int,s) toVI(s=readline()) = parse.(Int,split(s)) rep(f,n) = [f() for _ in 1:n] @enum YN Yes=1 No=0 function main() a = Vector{Vector{Int}}(undef,8) for i in 1:8 a[i] = map(toI,collect(readline())) end solve(a) |> YN |> println end function solve(a) b = zeros(Int,8) for i in 0:8^7-1 for j in 1:8 b[j] = -a[1][j] end for k in 2:8 shift = (i >> 3(k-2)) & 7 for j in 1:8 j′ = mod1(j+shift,8) b[j] += a[k][j′] end end all(iszero,b) && return true end return false end @static if endswith(@__FILE__, PROGRAM_FILE) main() end