From cd2f1d5e475f1d62cc6bedb9ac6a1133e3fd0277 Mon Sep 17 00:00:00 2001
From: josh <josh@45c1a28c-8058-47b2-ae61-ca45b979098e>
Date: Mon, 13 Oct 2008 22:36:11 +0000
Subject: [PATCH] added time-for-n.pl

git-svn-id: svn://anubis/gvsu@200 45c1a28c-8058-47b2-ae61-ca45b979098e
---
 cs677/hw7/src/time-for-n.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 cs677/hw7/src/time-for-n.pl

diff --git a/cs677/hw7/src/time-for-n.pl b/cs677/hw7/src/time-for-n.pl
new file mode 100755
index 0000000..8adc48d
--- /dev/null
+++ b/cs677/hw7/src/time-for-n.pl
@@ -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');
+}