Result

AC

Code [DL]

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

Disassembly

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

stdin

00010101
01000010
01111000
00010100
00101111
01111001
00111110
10100110
10111011
00100100
01000101
01001110
00111101
01101110
01101001
10111110
00000110
10101011
10001101
01100110
10001000
00000001
11010110
00001010
10011001
00000100
00101101
00001111
11111101
00011111
00000111
00000011
11000000
11111101
11110000
00100111
00100001
00000000
01101000
00011100
10011001
11111110
01011011
00010111
01010111
00110111
11010010
10110101
11100111
00001011

stdout

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

stderr

strace