by@kurgm
AC
$A=((1+8*(oct"0b".$_))**0.5+1)/2,print$A-~~$A?0:1for<>
01000010 01101001 00101011 01100100 01011011 11001011 00100100 11101000 00010101 10011001 11010100 10110011 10101000 10111101 11011100 10000010 10101011 10011001 10111110 01011100 11111111 01011011 00000011 10101100 00000000 10001000 10111011 00001010 00111010 00101101 11010010 11000010 01111000 00000110 11110111 00100001 00010111 01101010 00111111 11000111 11100111 00011100 10101001 11111101 00000001 10011010 00001111 01001110 00110111 01110010
11001010110000001110011011010110110000001101101110