added time-for-n.pl
git-svn-id: svn://anubis/gvsu@200 45c1a28c-8058-47b2-ae61-ca45b979098e
This commit is contained in:
parent
2c6a3b5df0
commit
cd2f1d5e47
14
cs677/hw7/src/time-for-n.pl
Executable file
14
cs677/hw7/src/time-for-n.pl
Executable 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');
|
||||||
|
}
|
Loading…
x
Reference in New Issue
Block a user