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

Reply via email to