[Rio-pm] Golf Code Jam

[Fernando Oliveira]

Golf, né? Então a minha 1a tacada:
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

2009/9/4 Bruno Buss <bruno.buss em gmail.com>

> Ae pessoal,
>
> Agora que o qualify round do Google Code Jam acabou, podemos discutir aqui
> os problemas e fazermos um golf com eles =]
>
> Os 3 problemas:
> Entrem aqui: http://code.google.com/codejam/contest/
> E cliquem em Qualification Round 2009 na coluna da direita.
>
>
> O A eu resolvi com isso aqui:
> ($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";}
>
> 186 caracteres! Acho que o pessol consegue diminuir fácil fácil =]
> (como sempre, rodando perl -E 'codigo' < input > output)
>
> 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)
>
>
>
>
> O B eu fiz em C mesmo.
> O C eu tente fazer um mandinga com backtracking via regexp... mas não
> consegui =/
>
> [ ]'s
> --
> Bruno C. Buss
> http://magoobr.blogspot.com/
> http://www.dcc.ufrj.br/~brunobuss/ <http://www.dcc.ufrj.br/%7Ebrunobuss/>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090904/532e35ee/attachment.html>