[Rio-pm] Golf Code Jam

[Bruno Buss]

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 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
>
> _______________________________________________
> 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/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090906/f3e848e4/attachment.html>