2009-09-11から1日間の記事一覧
提出: 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/…
提出: 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/…