Re (tilly) 5: (Golf) Multiply polynomials

[tilly]

in reply to Re: Re: Re: Re: (Golf) Multiply polynomials
in thread (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
}

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

[Masem]

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 - [e-mail] || "You've left the lens cap of your mind on again, Pinky" - The Brain

[tilly]

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
}