[Rio-pm] [Golf] Função drop Haskell
Fernando Oliveira
fernandocorrea em gmail.com
Quarta Fevereiro 3 13:50:01 PST 2010
Repetindo q não vale... mas do mesmo tamanho q aquele q retornava um undef a
mais:
sub drop{$a=$!if($!=shift)>0;@_>1?@_[$a..$#_]:substr"@_",$a}
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
Sent from Rio De Janeiro, RJ, Brazil
Em 3 de fevereiro de 2010 19:25, Fernando Oliveira <fernandocorrea em gmail.com
> escreveu:
> sub drop{$a=@_[0];$a=0if$a<0;@_>2?@_[$a.. em _]:substr$_[1],$a}
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20100203/1f838a59/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm