Result

AC

Code [DL]

00000000  71 79 6c 22 61 64 30 73  12 3d 40 61 2a 32 2b 40  |qyl"ad0s.=@a*2+@|
00000010  40 0a 1b 71 49 30 1b 71  7a 37 40 79 63 63 12 3d  |@..qI0.qz7@ycc.=|
00000020  66 6d 6f 64 28 73 71 72  74 28 40 40 2a 38 2b 31  |fmod(sqrt(@@*8+1|
00000030  29 2c 31 29 3d 3d 30 0a  1b 6a 5e 71 34 39 40 7a  |),1)==0..j^q49@z|
00000040  5a 5a                                             |ZZ|
00000042

Disassembly

qyl"ad0s<C-R>=@a*2+@@<NL><Esc>qI0<Esc>qz7@ycc<C-R>=fmod(sqrt(@@*8+1),1)==0<NL><Esc>j^q49@zZZ

stdin

11101100
00000011
11111110
11111101
00001111
10100001
10000010
10011001
10001001
00000000
00101101
10100101
01100111
01110101
11100101
01001110
00000110
00100101
10101110
10000011
00001010
00010101
00000001
11111000
00100011
00100110
10001000
11100111
00110100
00100100
00110111
10000101
10100100
10101011
01101001
01011000
10101100
01000010
01011011
10111110
00000110
11010010
01101111
11001011
11010110
01111000
00000001
00011100
10000001
11100010

stdout

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

stderr

strace