# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1626788639 -10800
# Node ID 6b2827b1b81084272d7a1ff395b36521c50a3ac8
# Parent  0fd29e5207d09d014c6243a2ae633c62d9ff06ff
Cleanup the text alloy output.

diff -r 0fd29e5207d0 -r 6b2827b1b810 parsealloys.pl
--- a/parsealloys.pl	Sun Apr 25 02:59:29 2021 +0300
+++ b/parsealloys.pl	Tue Jul 20 16:43:59 2021 +0300
@@ -220,19 +220,18 @@
     {
       foreach my $min2 (sort { $a cmp $b } keys %{$final{$min1}})
       {
-        printf "%-35s = ", ul($min1)." + ".ul($min2);
-        my $n = 0;
-        foreach my $res (sort { 
+        my @reslist = sort {
             $final{$min1}{$min2}{$a} <=> $final{$min1}{$min2}{$b}
             ||
             $a cmp $b
-            } keys %{$final{$min1}{$min2}})
-        {
-          print ul($res)."[".$final{$min1}{$min2}{$res}."] ";
-          $n++;
-        }
-        if ($n > 1) { print " (unstable)"; }
-        print "\n";
+            } keys %{$final{$min1}{$min2}};
+
+        printf("%-35s = %s%s\n",
+          ul($min1)." + ".ul($min2),
+          join(" | ", @reslist),
+          scalar(@reslist) > 1 ? " (unstable)" : ""
+          );
+
         $total++;
         $subtotal++;
       }