Ae pessoal,<br><br>Agora que o qualify round do Google Code Jam acabou, podemos discutir aqui os problemas e fazermos um golf com eles =]<br><br>Os 3 problemas:<br>Entrem aqui: <a href="http://code.google.com/codejam/contest/">http://code.google.com/codejam/contest/</a><br>
E cliquem em Qualification Round 2009 na coluna da direita.<br><br><br>O A eu resolvi com isso aqui:<br>($l,$d,$n)=(<>=~/(\d+) (\d+) (\d+)/);foreach(1..$d){$_=<>;chomp $_;push @w,$_};foreach(1..$n){$r = <>;chomp $r;$r=~tr/()/[]/;$c=0;foreach(@w){$c++ if($_=~/^${r}$/)};say "Case #$_: $c";}<br>
<br>186 caracteres! Acho que o pessol consegue diminuir fácil fácil =]<br>(como sempre, rodando perl -E 'codigo' < input > output)<br><br>Estou mandando em anexo o large input e o output do meu programa (que já que foi aceito como correto, vou supor que está certo :P)<br>
<br><br><br><br>O B eu fiz em C mesmo.<br>O C eu tente fazer um mandinga com backtracking via regexp... mas não consegui =/<br><br>[ ]'s<br>-- <br>Bruno C. Buss<br><a href="http://magoobr.blogspot.com/">http://magoobr.blogspot.com/</a><br>
<a href="http://www.dcc.ufrj.br/~brunobuss/">http://www.dcc.ufrj.br/~brunobuss/</a><br>