On Tue, Oct 01, 2002 at 02:01:53PM -0700, david wrote:
> i found your problem insteresting! the following should solve it:
Well in that case, please hand this one in for me.
perl -e'*,=sub{print+local$*=$*.$_[$_],$/,&,(@_[1+$_..$#_])for$#..$#_};&,(1..5)'
Different algorithm, different results, but then the problem wasn't
particularly well specified.
No, I won't, you don't really want to know, and yes, I do have many
better things to be doing :-)
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
