GCJ Qual Aでshort coding
提出: 117 bytes
split/\s/,<>;for(1..$_[1]){$a[$_]=<>;} for(1..$_[2]){($p=$r=<>)=~y/()/[]/; foreach(@a){$r+=/$p/}print"Case #$_: $r\n";}
後でもうちょっと短くできた: 110 bytes
split/ /,<>;for(1..$_[1]){$a[$_]=<>} for(1..$_[2]){($p=$r=<>)=~y/()/[]/; for(@a){$r+=/$p/}print"Case #$_: $r\n"}
# 見にくいので改行を追加しました