Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

comment on

( [id://3333]=superdoc: print w/replies, xml ) Need Help??
#!/usr/bin/perl -w # # Title : Matrix Multiplier # Author : Zenon Zabinski # E-Mail : zdog7@hotmail.com # # Versions : 1.00 - Initial product, pun intended # 1.10 - With several optimizations # # Help : When prompted for each matrix, enter each row of the matr +ix # followed by an <ENTER> with each element separated by a # space. After you have no more rows left, press enter with +out # typing anything when prompted for the next row. The only +keys # you should use are: enter, space, and the numbers. Happy # matrix multiplying. :-) # # Copyright (C) 2000 Zenon Zabinski. No rights reserved. # use strict; my (@firstfactor, @secondfactor, @product); @firstfactor = getmatrix ("First"); @secondfactor = getmatrix ("Second"); @product = getproduct (\@firstfactor, \@secondfactor); printmatrix (@product); # SUBS: sub getmatrix { my @matrix; print "\n". shift() ." matrix:\n"; while (<STDIN>) { chop; last if (!$_); if (/[^0-9 ]/) { die "Not a legal matrix row!\n"; } push @matrix, [ split / / ]; } return @matrix; } sub checkmatrix { my $rowlength = $#{$_[0]}; for (@_) { $rowlength == $#$_ or die "Number of columns was not consistent!\n +"; } } sub printmatrix { foreach (@_) { print "[ "; printf("%-4s", " $_") foreach (@$_); print " ]\n"; } } sub getdimen { my $rows = @_; my $cols = $#{$_[0]}; return ($rows - 1, $cols); } sub getproduct { my ($a, $b) = @_; my @product; checkmatrix(@$a); checkmatrix(@$b); my ($arow, $acol) = getdimen(@$a); my ($brow, $bcol) = getdimen(@$b); $acol == $brow or die "The matrices can't be multiplied!\n"; for my $i (0..$arow) { for my $j (0..$bcol) { for my $k (0..$acol) { $product[$i][$j] += $$a[$i][$k] * $$b[$k][$j]; } } } return @product; }

In reply to Matrix Multiplier by zdog

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2024-03-29 15:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found