Nossa 0.0<br><br>Fernando acabou com o golf? :P<br><br><div class="gmail_quote">2009/9/4 Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Golf, né? Então a minha 1a tacada:<br>perl -E '($l,$d,$n)=split/ /,<>;@w=map{<>.""}1..$d;map{($r = <>)=~tr/()/[]/;$c=grep{/^$r$/}@w;say "Case #$_: $c"}1..$n' A-large.in<br><br>
<div class="gmail_quote">2009/9/4 Bruno Buss <span dir="ltr"><<a href="mailto:bruno.buss@gmail.com" target="_blank">bruno.buss@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div></div><div class="h5">
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/" target="_blank">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><font color="#888888">-- <br>Bruno C. Buss<br><a href="http://magoobr.blogspot.com/" target="_blank">http://magoobr.blogspot.com/</a><br>
<a href="http://www.dcc.ufrj.br/%7Ebrunobuss/" target="_blank">http://www.dcc.ufrj.br/~brunobuss/</a><br>
</font><br></div></div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><font color="#888888"><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>
Fernando (SmokeMachine)<br>
<a href="http://perl-e.org" target="_blank">http://perl-e.org</a><br>
</font><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><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>