#!/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;
}

[download]

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":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.