[ILUG] impressive...

[Donncha O Caoimh]

In perl. I'm sure can be done better but first recursive subroutine I've
done in perl :)
Basically the same structure as the others but the scheme one has a
certain elegance..

-----------------------------------------------
sub factorial {
  my ($x)=@_;
  return $x==0 ? 1 : (&factorial($x-1)*$x);
}

print &factorial (4);
-----------------------------------------------

Donncha

John_White at dell.com wrote:
> 
> as easy as it would be to write one that gets the factorial of 5 :)
> but you'd need a mad data type to store the result in . . .
> 
> -----Original Message-----
> From: John P . Looney [mailto:valen at tuatha.org]
> Sent: 28 October 1999 14:46
> To: Irish LUG list
> Subject: [ILUG] impressive...
> 
>  Check this out.
> 
>  Into umb-scheme, type: