Result

AC

Code [DL]

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

stdin

00011100
11100100
00000011
10001000
10101000
01011011
01101000
01010001
01001110
01000010
01100110
11110000
00001000
10011111
11010010
11000000
10000101
11011100
10111110
01101001
00001111
10010110
10111111
00111100
00010101
11011001
00110111
00000000
00001010
10110110
10011001
10101011
00101101
00000110
10100001
11100111
00100100
01110101
11000111
11111000
00101011
11111101
10011010
00000001
01000010
01111000
11010100
00001101
00100011
10101011

stdout

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

stderr

strace