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 0a                                          |ZZ.|
00000043

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<NL>

stdin

11111100
11100111
00100100
01110011
10111110
00000000
11000111
00001010
10101100
10101011
11010010
00111110
01101001
11001000
00110111
01101101
01001110
11010001
10100010
01000010
11011101
00111001
10100111
00111010
10001001
01111000
11110001
00000110
11111101
11010000
01011011
00000001
11010100
01101111
00000000
01011001
00100100
00000011
10111000
00111011
00011010
10101111
10011001
00001111
00100111
00101101
01111001
00011100
10001000
00010101

stdout

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

stderr

strace