Result

AC

Code [DL]

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

Disassembly

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

stdin

01100111
11100111
00010101
01011011
01111101
00001010
00001111
01100101
10110100
11100111
00101100
00100100
00011100
00000011
11100001
01001110
01011101
00000000
01000110
11001000
01010011
00000110
11111101
01000010
10101011
00001000
00101101
00010001
10011001
01111000
01011010
11010010
11001010
00110111
00101111
00110101
01000101
10011100
10111110
10111011
00000111
01001111
01011100
10101001
01101001
10100110
00000001
10110010
10001000
01111000

stdout

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

stderr

strace