Result

WA

Code [DL]

:for i in range(51)
call setline(i,!(float2nr(sqrt(0b{getline(i)}001)*99)%99))
endfor
ZZ

Disassembly

:for i in range(51)<NL>call setline(i,!(float2nr(sqrt(0b{getline(i)}001)*99)%99))<NL>endfor<NL>ZZ

stdin

10111001
00011010
11110110
00010101
11011100
00100100
01000010
11001000
10111010
10000101
00001010
10101011
00000001
11111100
01111000
01011011
11111101
00000110
00011100
10011001
10101110
11010010
10010110
01111001
00001111
10011100
10101011
01011011
10111110
01110101
10011111
11110111
10001000
00101101
00000000
10000000
10110110
10100001
00000011
11010011
01010010
01001110
01011001
00111101
00110111
00100111
11001001
11100111
01101001
11001010

stdout

1011100

00011010
11110110
00010101
11011100
00100100
01000010
11001000
10111010
10000101
00001010
10101011
00000001
11111100
01111000
01011011
11111101
00000110
00011100
10011001
10101110
11010010
10010110
01111001
00001111
10011100
10101011
01011011
10111110
01110101
10011111
11110111
10001000
00101101
00000000
10000000
10110110
10100001
00000011
11010011
01010010
01001110
01011001
00111101
00110111
00100111
11001001
11100111
01101001
11001010

stderr

strace