Result

AC

Code [DL]

00000000  71 7a 43 12 3d 66 6d 6f  64 28 73 71 72 74 28 73  |qzC.=fmod(sqrt(s|
00000010  74 72 32 6e 72 28 40 40  2c 32 29 2a 38 2b 31 29  |tr2nr(@@,2)*8+1)|
00000020  2c 31 29 3d 3d 30 0a 1b  77 71 34 39 40 7a 5a 5a  |,1)==0..wq49@zZZ|
00000030

Disassembly

qzC<C-R>=fmod(sqrt(str2nr(@@,2)*8+1),1)==0<NL><Esc>wq49@zZZ

stdin

10111000
01000010
00011100
00000011
10011001
10100010
01111001
11000101
00101000
10101011
00111010
00001101
00110111
11101100
11101101
10001000
00010101
10000000
01100101
10000101
00101101
00100100
11111010
11010010
11011000
01001110
10111110
10101011
11111011
00000001
01101001
11111100
00000110
01011011
00000000
00011011
00001010
00001111
10111001
11111101
11110000
11100010
10110101
01111000
10000111
01100000
01010110
01111000
11100111
01000011

stdout

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

stderr

strace