check pairing

diff --git a/input-graph b/input-graph
index bc0e92aca47046131333855fda13bd82e893aecc..1660eb9f674382f0fae390eb45ba4f7be8c29c05 100644 (file)
--- a/input-graph
+++ b/input-graph
@@ -75,7 +75,8 @@ yellow
        Gelderse Vallei
                Betuwe
                Utrechtse Heuvelrug
-               F. +
+               Fl. +
+               Ve.
 
 high
        Utrechtse Heuvelrug
@@ -104,6 +105,7 @@ yellow
                Ve.
                Ij. +
                Vo. ++
+               Tw.
        Betuwe
                R.e.Ij. +
                Land van Maas en Waal +
@@ -141,6 +143,7 @@ high
                Land van Heusden
                L..W.
                P.e.M.
+               R.e.O.
 
 green
        Land van Heusden
@@ -175,6 +178,7 @@ red
        Delfland
                NZ +
                K.
+               M. +
                K.R. +
                V.
                H.W.

diff --git a/parse-input-graph b/parse-input-graph
index 7892ab2e83aab51799ffc441ecfcf3095d8a26ec..f0e799f16c4561998c05dceff53b1465f06cdab5 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -123,7 +123,9 @@ sub edges () {
   my $ndikes = 0;
   foreach my $r0 (sort keys %edges) {
     foreach my $r1 (sort keys %{ $edges{$r0} }) {
-      $ndikes += $edges{$r0}{$r1}{Dikes};
+      my $e = $edges{$r0}{$r1};
+      confess "$r0 / $r1 : @{ $e->{L} } ?" unless @{ $e->{L} } == 2;
+      $ndikes += $e->{Dikes};
     }
   }
   print "total $ndikes dikes\n";