já q é golf, serve algo assim?<br><code><br>perl -lne'push@a,$_}{for$i(1..@a){print for t($i,@a)};sub t{my$b=shift;return@_ if$b==1;my@c;for$d(t($b-1,@_)){push@c,"$_$d"for@_}@c}' teste-golf-ccpp<br>
</code><br><br><div class="gmail_quote">2009/5/2 Blabos de Blebe <span dir="ltr"><<a href="mailto:blabos@gmail.com">blabos@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;">
Perlsoal,<br>
<br>
O amigo Jorge Pereira lá da lista de C++ está com este problema e<br>
invocou 'Everyone' para uma solução em 'qualquer coisa'.<br>
<br>
Creio que daria um golf e ele ficaria agradecido.<br>
<br>
Abraços<br>
<br>
2009/5/2 Jorge Pereira <<a href="mailto:jpereiran@gmail.com">jpereiran@gmail.com</a>>:<br>
<div><div></div><div class="h5">> Hello Everyone!<br>
><br>
> Não recordo, mais acho que já comentei sobre isto por aqui...mais vamos<br>
> lá! digamos que eu tenha o seguinte conteúdo abaixo!<br>
><br>
> [jpereira@jiraya ~]$ cat dict.txt<br>
> !!<br>
> @@<br>
> !@<br>
> @!<br>
> 2004<br>
> 2005<br>
> 2006<br>
> 2007<br>
> 2008<br>
> [jpereira@jiraya ~]$<br>
><br>
> E preciso de alguma ferramenta (algorítimo em c, shell, qualquer coisa) que<br>
> me de uma saída tipo.<br>
><br>
> [jpereira@jiraya ~]$ ./something dict.txt<br>
> !!<br>
> !!@@<br>
> !!@@!!2007<br>
> 2008@@!!<br>
> ........<br>
> [jpereira@jiraya ~]$<br>
><br>
> Ou seja, que ele gere saída com TODAS as combinações possíveis sem precisar<br>
> repetir na mesma linha, exemplo (!!@@2007@@2007)<br>
> fica algo quase parecido com uma torre de hanoy! :)<br>
><br>
> Tenho já algo em mente, porém gostaria da sugestão dos amigos!<br>
><br>
> []s<br>
> --<br>
> Regards,<br>
> +--------------------------------------------+<br>
> Jorge Pereira,<br>
> <a href="http://blog.jorgepereira.com.br/" target="_blank">http://blog.jorgepereira.com.br/</a><br>
> +--------------------------------------------+<br>
><br>
> --~--~---------~--~----~------------~-------~--~----~<br>
> Antes de enviar um e-mail para o grupo leia:<br>
> <a href="http://www.ccppbrasil.org/wiki/Lista:AntesdePerguntar" target="_blank">http://www.ccppbrasil.org/wiki/Lista:AntesdePerguntar</a><br>
> --~--~---------~--~----~------------~-------~--~----~<br>
> C/C++ Brasil - <a href="http://www.ccppbrasil.org/" target="_blank">http://www.ccppbrasil.org/</a><br>
> Para sair dessa lista, envie um e-mail para<br>
> <a href="mailto:ccppbrasil-unsubscribe@googlegroups.com">ccppbrasil-unsubscribe@googlegroups.com</a><br>
> Para mais opções, visite <a href="http://groups.google.com/group/ccppbrasil" target="_blank">http://groups.google.com/group/ccppbrasil</a><br>
> --~--~---------~--~----~------------~-------~--~----~<br>
> Emprego & carreira: <a href="mailto:vagas-l@ccppbrasil.org">vagas-l@ccppbrasil.org</a><br>
> <a href="http://groups.google.com/group/dev-guys?hl=en" target="_blank">http://groups.google.com/group/dev-guys?hl=en</a><br>
> -~----------~----~----~----~------~----~------~--~---<br>
><br>
><br>
</div></div>_______________________________________________<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>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>