by@xuzijian629_key
WA
module a;real x;initial while($fscanf(1<<31,"%b",x))$write(1==(8*x+1)**0.5);endmodule
00011100 00000001 10110110 01000011 00100100 11010001 01101100 10111001 01110101 01011011 00010101 01101000 10101011 00001111 00110111 10100011 10010111 00000010 11110111 10110011 10010000 10010100 00110111 01001110 01111110 00110110 11100001 10010101 11010010 01101001 01000010 10001000 11001010 11011000 00101101 01111000 10011001 11011010 01100110 11100111 11111101 00001010 01110010 11000011 00000011 00000110 10111110 00100100 01110100 00000000
00000000000000000000000000000000000000000000000001