Bracket Matching by primo

<?for(;$s=fgets(STDIN);print$f||$p?~\x99\x9e\x96\x93\x9a\x9b\xdf\x9e\x8b\xc5\xdf.($c?substr($s,$n-1):~\xba\xb0\xb3\xf5):~\x86\x9a\x8c\xf5)for($n=$p=$f=0;!$f&&$i=strpos(' \x06A\x12a\x04G\x13g',$c=':'^$s[$n++]);)$i<5?${++$p}=$i:$f=${$p--}^$i-4;

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page