#!/usr/bin/perl -w

print "Enter the size of the matrix ( = nprocs in ring ): ";
my $nprocs = <>;
chomp($nprocs);
`rm -f I R RIrr RIrc IRrr IRrc`;
`./mkRandomMatrix R $nprocs`;
`./mkIdentityMatrix I $nprocs`;

p_check('./prc', 'I', 'R', 'IRrc', 'R', $nprocs);
p_check('./prr', 'I', 'R', 'IRrr', 'R', $nprocs);
p_check('./prc', 'R', 'I', 'RIrc', 'R', $nprocs);
p_check('./prr', 'R', 'I', 'RIrr', 'R', $nprocs);

sub p_check {
    my($exe, $a, $b, $c, $r, $nprocs) = @_;
    `$exe $a $b $c $nprocs`;
    my $diff = `diff $r $c`;
    if($diff){
	print "$r and $c differ\n";
    } else {
	print "$r and $c agree\n";
    }
}