From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 14 Jan 2019 15:35:49 +0000 (+0000)
Subject: more debug and check
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=a6519ce52e9a111c63dcac09550a5e847464c6bb;p=pandemic-rising-tide.git

more debug and check
---

diff --git a/parse-input-graph b/parse-input-graph
index cec240a..8ca5fff 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -187,6 +187,17 @@ sub dual () {
   foreach my $cc ($g->connected_components) {
     print STDERR "CC:\n";
     print STDERR "    $_\n" foreach @$cc;
+    my %uniq;
+    foreach my $e (@$cc) {
+      $e =~ m/ \# \d+$/ or confess;
+      push @{ $uniq{$`} }, $e;
+    }
+    foreach my $u (values %uniq) {
+      next if @$u == 1;
+      my ($x,$y) = @$u or confess;
+      my @p = $g->SP_Dijkstra($x, $y);
+      confess join ' -- ', @p;
+    }
   }
 }