by@kurgm
AC
$A=((1+8*(oct"0b".$_))**0.5+1)/2,print $A-($A|0)?0:1for<>
11010010 10011001 00001111 10100011 01101101 00000110 11001000 01111000 01000010 01011110 11100000 10001000 11001111 00011010 01000011 00111011 11100111 00010100 01100001 00000011 10001000 00101111 00010101 00000111 11011011 10101000 11111101 10101011 11010101 01100000 01010001 01111001 10111110 00000000 10100001 00101101 00110111 00100100 01111111 11011001 00100110 01001110 00000001 00001010 10101010 11010111 01011011 00011100 10011001 01101001
11100101100100001001101000110000110111000111001111