Result

AC

Code [DL]

$Input|%{+!([Math]::Sqrt([Convert]::ToByte($_,2)*8+1)%1)}

stdin

10101011
00001010
11101000
01110111
10111110
01110001
10011001
01011011
11010010
00101001
11100111
01001110
00000001
00010001
10111011
11011010
01000000
01000010
10010010
11011000
11100111
00000000
10001000
00110111
00001111
00011100
01111000
11100110
11001000
00000011
00010100
00110011
10001100
10011010
11000100
00000110
00110000
00010101
11111101
10011000
00101101
00010110
10101100
11101010
10001011
10001001
01101001
01011101
00001111
00100100

stdout

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

stderr

strace