by@momohatt
WA
498ms
: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
96 91 24 70 27 08 48 82 44 07 72 23