Re: Re: (Golf) Multiply polynomials

[Masem]

in reply to Re: (Golf) Multiply polynomials
in thread (Golf) Multiply polynomials

New approach, but still 102. I don't I can break it any more...

sub p {
  my($a,$b)=(shift,shift);
  my@c=map{my($d,$e);for$e(0..$_){$d+=$$a[$e]*$$b[$_-$e]}$d}0..$#$a+$#
+$b;
  @_?p(\@c,@_):\@c
}

---

Dr. Michael K. Neylon - [e-mail] || "You've left the lens cap of your mind on again, Pinky" - The Brain

[tye]

Simple improvement:

my($a,$b)=(shift,shift);
my$a=shift;my$b=shift; # a bit shorter
my$a=pop;my$b=pop; # even shorter since multiplaction is commutative

        - tye (but my friends call me "Tye")