-2<br>perl -E'@a=split/ /,<>;@w=map{<>.""}1..$a[1];map{($r=<>)=~tr/()/[]/;$c=grep{/^$r$/}@w;say"Case #$_: $c"}1..$a[2]' A-large.in<br><br><div class="gmail_quote">2009/9/6 Gabriel Vieira <span dir="ltr"><<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@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;">Só pra não parar..<br>
-4<br>
<div class="im">perl -E'($l,$d,$n)=split/<br>
/,<>;@w=map{<>.""}1..$d;map{($r=<>)=~tr/()/[]/;$c=grep{/^$r$/}@w;say"Case<br>
#$_: $c"}1..$n' A-large.in<br>
<br>
</div>2009/9/6 Bruno Buss <<a href="mailto:bruno.buss@gmail.com">bruno.buss@gmail.com</a>>:<br>
<div><div></div><div class="h5">> Nossa 0.0<br>
><br>
> Fernando acabou com o golf? :P<br>
><br>
> 2009/9/4 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>><br>
>><br>
>> Golf, né? Então a minha 1a tacada:<br>
>> perl -E '($l,$d,$n)=split/ /,<>;@w=map{<>.""}1..$d;map{($r =<br>
>> <>)=~tr/()/[]/;$c=grep{/^$r$/}@w;say "Case #$_: $c"}1..$n' A-large.in<br>
>><br>
>> 2009/9/4 Bruno Buss <<a href="mailto:bruno.buss@gmail.com">bruno.buss@gmail.com</a>><br>
>>><br>
>>> Ae pessoal,<br>
>>><br>
>>> Agora que o qualify round do Google Code Jam acabou, podemos discutir<br>
>>> 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<br>
>>> @w,$_};foreach(1..$n){$r = <>;chomp $r;$r=~tr/()/[]/;$c=0;foreach(@w){$c++<br>
>>> 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á<br>
>>> 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<br>
>>> consegui =/<br>
>>><br>
>>> [ ]'s<br>
>>> --<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>
>>><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>
>><br>
>><br>
>><br>
>> --<br>
>> Just another Perl Hacker,<br>
>> Fernando (SmokeMachine)<br>
>> <a href="http://perl-e.org" target="_blank">http://perl-e.org</a><br>
>><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>
><br>
><br>
><br>
> --<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>
><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>
><br>
<br>
<br>
<br>
--<br>
</div></div><font color="#888888">Gabriel Vieira<br>
</font><div><div></div><div class="h5">_______________________________________________<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>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>