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