Result

AC

Code [DL]

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

Disassembly

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

stdin

11100100
00100001
10000000
01111110
11010010
10011010
01010000
10100001
01100001
00011100
10111100
11010010
11011101
00010101
01111000
00110111
01101000
10101011
11100111
10001000
11010010
00101101
10000011
01100110
00000001
01001111
00001010
10110000
10011111
11001000
10011001
01010111
10111000
01011011
11111101
10111110
00011010
01001110
00100100
00101000
01000010
10101010
00001111
00000000
01101001
00000110
11011111
01000110
00000011
00010110

stdout

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

stderr

strace