http://www.perlmonks.org?node_id=78588


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

This can be trimmed down to 90 chars:
my($a,$b,@r,$c)=@_;for my$i(0..$#$a){$$c[$i+$_]+=$$a[$i]*$$b[$_]for +0..$#$b}@r?p($c,@r):$c
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print