Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: (Golf) Multiply polynomials

by jeroenes (Priest)
on May 11, 2001 at 13:30 UTC ( #79662=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use PDL:
    sub p{$t=pdl+pop;$t=$t*(pdl$_)for@_;[list$t]}
    
  2. or download this
    print join " ", @{p([1..5],[1..5])}; 
    1 4 9 16 25
    
  3. or download this
    sub p{my $t=pdl+pop;$t=$t*(pdl$_)for@_;[list$t]}
    
  4. or download this
    A = p1'*p2;
    product = crossdiags(A);
    
  5. or download this
    sub p{$t=pdl+pop;for(@_){
      my $a=outer$t,pdl+pop;
    ...
      $t->slice("$_:".($_+$n))+=$a->slice("$_,:")for 0..$n;
    }
    [list$t]}
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://79662]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2014-07-25 08:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (170 votes), past polls