#!/usr/bin/perl

print "Enter the size of the matrix ( = nprocs in ring ): ";
my $nprocs = <>;
chomp($nprocs);
my $diff;
`rm -f I R RIrr RIrc IRrr IRrc`;
`./mkRandomMatrix R $nprocs`;
`./mkIdentityMatrix I $nprocs`;
`./prc I R IRrc $nprocs`;
$diff = `diff R IRrc`;
if($diff){
    print "R and IRrc differ\n";
} else {
    print "R and IRrc agree\n";
}
`./prr I R IRrr $nprocs`;
$diff = `diff R IRrr`;
if($diff){
    print "R and IRrr differ\n";
} else {
    print "R and IRrr agree\n";
}
`./prc R I RIrc $nprocs`;
$diff = `diff R RIrc`;
if($diff){
    print "R and RIrc differ\n";
} else {
    print "R and RIrc agree\n";
}
`./prr R I RIrr $nprocs`;
$diff = `diff R RIrr`;
if($diff){
    print "R and RIrr differ\n";
} else {
    print "R and RIrr agree\n";
}