Mercurial > hg > batmud > materials

changeset 39:6b2827b1b810

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleanup the text alloy output.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 20 Jul 2021 16:43:59 +0300
parents 0fd29e5207d0
children 36c9e3e31234
files parsealloys.pl
diffstat 1 files changed, 9 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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++;
       }