by@kurgm
WA
:for i in range(50) :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(50)<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
01010110 00000000 00110011 11110000 01011110 00011100 10011101 11000000 11110110 10101111 00110000 00000110 11100111 10000010 01100111 00010000 11010111 10110000 01010010 00000001 11111101 01111000 10100111 01111110 10011111 00100100 11111110 01001110 10010111 01110011 01000010 10011001 00001010 01011011 00101101 11100010 10001000 00110111 01101001 01000010 10111110 11010010 01110100 11111101 10010101 11100000 00010101 00001111 00000011 10101011
01010110 00000000 00110011 11110000 01011110 00011100 10011101 11000000 11110110 10101111 00110000 00000110 11100111 10000010 01100111 00010000 11010111 10110000 01010010 00000001 11111101 01111000 10100111 01111110 10011111 00100100 11111110 01001110 10010111 01110011 01000010 10011001 00001010 01011011 00101101 11100010 10001000 00110111 01101001 01000010 10111110 11010010 01110100 11111101 10010101 11100000 00010101 00001111 00000011 10101011