[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