added time-for-n.pl

git-svn-id: svn://anubis/gvsu@200 45c1a28c-8058-47b2-ae61-ca45b979098e
This commit is contained in:
josh 2008-10-13 22:36:11 +00:00
parent 2c6a3b5df0
commit cd2f1d5e47

14
cs677/hw7/src/time-for-n.pl Executable file
View File

@ -0,0 +1,14 @@
#!/usr/bin/perl
use strict;
use warnings;
for (my $n = 100; $n <= 1000; $n += 100)
{
print("./gen_adj_matrix $n 6\n");
system('./gen_adj_matrix', $n, 6);
print("./floyd-sequential adjacency.dat\n");
system('./floyd-sequential', 'adjacency.dat');
print("./floyd-parallel adjacency.dat\n");
system('./floyd-parallel', 'adjacency.dat');
}