Ph. Marek schreef:
> [Haskell]
> SomeThing a b
> | a = 4 : b+2
> | b = 3 : a+1
> | otherwise : a*b
>
> In Perl5 this looks like
>
> sub SomeThing
> {
> my($a, $b)[EMAIL PROTECTED];
>
> return b+2 if ($a == 4);
> return a+1 if ($b == 3);
> return a*b;
> }
Or like:
sub SomeThing
{
alias my ($p, $q) = @_ ;
$p == 4 ? $q + 2 :
$q == 3 ? $p + 1 :
$p * $q ;
}
--
Groet, Ruud
