Result

AC

Code [DL]

f={x->if(x>0)f(int(x/10))*2+x%2else 0}
stdin|{x->int(1-sqrt(f(number(x))*8+1)%1)}|puts

stdin

11010010
00000001
10101011
00001110
00000011
01000010
10100100
00111101
11000000
01001001
10001000
01010000
11001011
01101001
01011100
01101011
01001110
01110111
00100100
01011110
10011011
10111110
10011001
01001110
00001010
00011110
10110000
11111001
00000000
11111011
00110111
00000110
10010101
01011011
00001111
00000111
11000111
00101101
11110101
10011100
00010101
11100111
01111000
01001110
11101000
00011100
01110011
11111101
01100011
10001001

stdout

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

stderr

strace