Result

WA

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 22 62 63 63  |@..qI0.qz7@y"bcc|
00000020  12 3d 66 6d 6f 64 28 73  71 72 74 28 40 62 2a 38  |.=fmod(sqrt(@b*8|
00000030  2b 31 29 2c 31 29 3d 3d  30 0a 1b 6a 5e 6c 71 34  |+1),1)==0..j^lq4|
00000040  39 40 7a 5a 5a 0a                                 |9@zZZ.|
00000046

Disassembly

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

stdin

01000001
01110011
00001010
10000101
11111101
00110111
00000011
10001000
11101101
00110011
01101011
00000110
00011100
10011001
01111101
10111110
11100011
00100100
01011011
10101011
10011111
01101001
00001111
01101111
11010110
00101100
11111101
11110010
11101100
11001101
11011111
10101111
01000010
01111000
00001001
00101101
11010010
00111100
10111111
01001110
10010100
00100111
00000000
00010101
10101011
11100111
01001011
00000001
01110101
11000101

stdout

0
115
00001010
10000101
11111101
00110111
00000011
10001000
11101101
00110011
01101011
00000110
00011100
10011001
01111101
10111110
11100011
00100100
01011011
10101011
10011111
01101001
00001111
01101111
11010110
00101100
11111101
11110010
11101100
11001101
11011111
10101111
01000010
01111000
00001001
00101101
11010010
00111100
10111111
01001110
10010100
00100111
00000000
00010101
10101011
11100111
01001011
00000001
01110101
11000101

stderr

strace