# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1240251101 0
# Node ID c8c2c545fa63e8dae1cb92191d7a15413a5cc1f1
# Parent  b94ffda8cb46e18d618c9053a1bad898ca0a3e4a
Count number of found combinations.

diff -r b94ffda8cb46 -r c8c2c545fa63 materials/parsealloys.pl
--- a/materials/parsealloys.pl	Mon Apr 20 16:16:17 2009 +0000
+++ b/materials/parsealloys.pl	Mon Apr 20 18:11:41 2009 +0000
@@ -132,6 +132,7 @@
   print ");\n\n".
   "?>";
 } else {
+  my $num = 0;
   foreach my $min1 (sort { $a cmp $b } keys %final) {
     foreach my $min2 (sort { $a cmp $b } keys %{$final{$min1}}) {
       printf "%-35s = ", $min1." + ".$min2;
@@ -142,6 +143,8 @@
       }
       if ($n > 1) { print " (unstable)"; }
       print "\n";
+      $num++;
     }
   }
+  print "\n$num alloys total.\n";
 }