by@akouryy1
WA
f={x->if(x>0)f(int(x/10))*2+x%2else 0}
stdin|{x->1-sqrt(f(number(x))*8+1)%1|0}|puts00000110 11100111 10010111 10011001 10011000 01010110 00100100 01011011 11011000 11110111 11000100 10011001 00101000 11010110 00010101 00110110 00000001 10111110 00110111 00100100 01000010 01010111 10000000 11101001 00011100 11111001 00000011 00110101 00001111 10011111 10001000 11111101 01100101 00101101 00110001 01101001 11001011 00001010 01001110 11111000 11001111 01111000 10111101 11010010 11111011 00111001 11101011 00001101 10101011 00000000
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0