Re (tilly) 5: (Golf) Multiply polynomials

Nitpicking some more, if you want strict I can give you 84 characters:

sub p{
my@m=1;for my$p(@_){my@a;for my$i(0..@m){my$j;$a[$i+$j++]+=$_*$m[$i]fo
+r@$p}@m=@a}\@m
}
[download]

And note that I handle 0 or more polynomials correctly. (The empty product in math is "1".)

Comment on Re (tilly) 5: (Golf) Multiply polynomials Download Code

Replies are listed 'Best First'.
Re: Re (tilly) 5: (Golf) Multiply polynomials by Masem (Monsignor) on May 08, 2001 at 18:52 UTC
This must be under 5.6 or the like; "for my$p" and "for my$i" lead to interpreter problems under 5.005_02 (Win32). Bug or feature change? Dr. Michael K. Neylon - mneylon-pm@masemware.com \|\| "You've left the lens cap of your mind on again, Pinky" - The Brain	[reply]
Re (tilly) 7: (Golf) Multiply polynomials by tilly (Archbishop) on May 08, 2001 at 19:27 UTC
Um, bug. I was too glib. But that makes getting a strict version with a count of 84 a point of honour, right? :-) `sub p{ my@m=1;for my $p(@_){my@a;map{my$j=my$i=$_;$a[$j++]+=$_*$m[$i]for@$p}0 +..@m;@m=@a}\@m }` [download]	[reply] [d/l]