Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re (tilly) 5: (Golf) Multiply polynomials

by tilly (Archbishop)
on May 08, 2001 at 18:29 UTC ( #78830=note: print w/ replies, xml ) Need Help??


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".)


Comment on Re (tilly) 5: (Golf) Multiply polynomials
Download Code
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
      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 }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2014-11-23 05:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (128 votes), past polls