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"}

# 見にくいので改行を追加しました