Result

AC

Code [DL]

: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

Disassembly

: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>

stdin

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

stdout

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

stderr

strace