Result

WA

Code [DL]

00000000  6c 71 79 22 61 64 30 73  12 3d 40 61 2a 32 2b 40  |lqy"ad0s.=@a*2+@|
00000010  40 0a 1b 6c 71 69 30 1b  71 7a 38 40 79 22 62 63  |@..lqi0.qz8@y"bc|
00000020  63 12 3d 66 6d 6f 64 28  73 71 72 74 28 40 62 2a  |c.=fmod(sqrt(@b*|
00000030  38 2b 31 29 2c 31 29 3d  3d 30 0a 1b 6a 5e 6c 71  |8+1),1)==0..j^lq|
00000040  34 39 40 7a 5a 5a 0a                              |49@zZZ.|
00000047

Disassembly

lqy"ad0s<C-R>=@a*2+@@<NL><Esc>lqi0<Esc>qz8@y"bcc<C-R>=fmod(sqrt(@b*8+1),1)==0<NL><Esc>j^lq49@zZZ<NL>

stdin

10011001
00110111
10111100
11010100
10110110
10111110
00000000
11010010
00000011
00101111
01000010
11111101
00001001
01011011
10110111
00000001
01101001
01001110
11101011
01111111
11010111
01010111
11011110
01111000
10000010
00000110
00011001
00100100
10100011
11100111
00011100
10000001
10101011
11111101
10000100
00111010
10111010
00001111
00010101
10010000
11011001
00001010
00010110
01110110
00101101
10001000
00110100
11010010
00010011
00001110

stdout

0
55
10111100
11010100
10110110
10111110
00000000
11010010
00000011
00101111
01000010
11111101
00001001
01011011
10110111
00000001
01101001
01001110
11101011
01111111
11010111
01010111
11011110
01111000
10000010
00000110
00011001
00100100
10100011
11100111
00011100
10000001
10101011
11111101
10000100
00111010
10111010
00001111
00010101
10010000
11011001
00001010
00010110
01110110
00101101
10001000
00110100
11010010
00010011
00001110

stderr

strace