[Rio-pm] Golf Code Jam

Fernando Oliveira fernandocorrea em gmail.com
Domingo Setembro 6 15:25:55 PDT 2009


-2
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

2009/9/6 Gabriel Vieira <gabriel.vieira em gmail.com>

> Só pra não parar..
> -4
> 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/6 Bruno Buss <bruno.buss em gmail.com>:
> > Nossa 0.0
> >
> > Fernando acabou com o golf? :P
> >
> > 2009/9/4 Fernando Oliveira <fernandocorrea em gmail.com>
> >>
> >> 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
>> >>> 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
> >>
> >> _______________________________________________
> >> Rio-pm mailing list
> >> Rio-pm em pm.org
> >> http://mail.pm.org/mailman/listinfo/rio-pm
> >
> >
> >
> > --
> > 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
> >
>
>
>
> --
> Gabriel Vieira
> _______________________________________________
> 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/20090906/1309ace1/attachment-0001.html>


Mais detalhes sobre a lista de discussão Rio-pm