Result

WA

Code [DL]

:for i in range(51)
call setline(i,!(float2nr(sqrt(("0b".getline(i))*8+1)*5)%5))
endfor
ZZ

Disassembly

:for i in range(51)<NL>call setline(i,!(float2nr(sqrt(("0b".getline(i))*8+1)*5)%5))<NL>endfor<NL>ZZ

stdin

00010000
00001010
10101101
00100100
11100111
10011111
01011011
01111100
00001111
10011010
00001111
00010101
11110001
01111000
10111110
00101101
00101111
00000110
10010000
10001000
00110111
00001010
00010011
10101000
00000011
10101110
00101001
11010010
00011100
01101101
00000000
11111111
11100100
00101000
01000010
01001010
11110100
11111101
11111001
11101101
10101011
11000110
10000000
01001110
01101001
00111010
00000001
11000101
11101010
10011001

stdout

0
1
0
1
1
0
1
0
1
1
1
1
0
1
1
1
0
1
0
1
1
1
0
0
1
0
1
1
1
0
1
1
0
0
1
0
1
1
0
0
1
0
1
1
1
0
1
0
0
1

stderr

strace