by@kurgm
AC
:for i in range(51) :let l=getline(i) :call setline(i,!(float2nr(sqrt(1+64*(l[0]*16+l[1]*8+l[2]*4+l[3]*2+l[4])+l[5]*32+l[6]*16+l[7]*8)*99)%99)) :endfor :wq
:for i in range(51)<NL>:let l=getline(i)<NL>:call setline(i,!(float2nr(sqrt(1+64*(l[0]*16+l[1]*8+l[2]*4+l[3]*2+l[4])+l[5]*32+l[6]*16+l[7]*8)*99)%99))<NL>:endfor<NL>:wq<NL>
10100110 00000110 10110011 00000000 11100111 00011101 11110000 00100100 01101001 10010111 00000011 00101011 00001111 01110100 11111101 10001000 10011001 00111110 10111110 01001011 00000101 01001110 01010101 10100010 11011011 00011100 11010010 01011011 10010100 00000011 11110010 00000001 10101011 10110101 01010001 00110111 11101011 01000010 01101101 01010111 00001010 00010101 01110111 00111101 10001000 11000000 00101101 10011110 11000111 01111000
0 1 0 1 1 0 0 1 1 0 1 0 1 0 1 1 1 0 1 0 0 1 0 0 0 1 1 1 0 1 0 1 1 0 0 1 0 1 0 0 1 1 0 0 1 0 1 0 0 1