by@kurgm
AC
while read a;do b=$[2#$a*8+1];for ((c=$b;c*c>b;c--));do :;done;echo $[c*c==b];done;
00010000 01110100 00011010 11110101 01110110 01001011 11110001 01000010 00011100 11111101 00000110 01011110 00010100 00000000 00001010 01100100 01101001 01110000 00110101 01111000 10011001 01001110 10011100 00100010 01011011 00101010 01110001 10101011 11011011 11010010 10101011 11000100 00101101 00000001 10111110 00110010 00100100 00010101 00001111 01010101 00110111 00000100 11110010 01111000 11110011 11100101 10001000 00000011 11100111 10111101
0 0 0 0 0 0 0 1 1 1 1 0 0 1 1 0 1 0 0 1 1 1 0 0 1 0 0 1 0 1 1 0 1 1 1 0 1 1 1 0 1 0 0 1 0 0 1 1 1 0
/bin/bash: warning: setlocale: LC_ALL: cannot change locale (en_US.UTF-8)