From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 24 Jan 2011 15:45:57 +0000 (+0000)
Subject: canon: report number of changes to k0
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=commitdiff_plain;h=436e5e7da50c7925693c4d065b33b73b9c1df055;p=ypp-sc-tools.main.git

canon: report number of changes to k0
---

diff --git a/yarrg/canon b/yarrg/canon
index cb6b980..da19de5 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -14,6 +14,8 @@ foreach my $ab (qw(0 1)) {
     close F or die $!;
 }
 print "total rows: ", (scalar keys %s), "\n";
+my $lastk0='';
+my $changek0;
 foreach my $k (sort keys %s) {
     my @r= @{ $s{$k} };
     my $whynot=
@@ -23,7 +25,10 @@ foreach my $k (sort keys %s) {
         $r[1] != $r[3] ? (sprintf "qt %4d",($r[3]-$r[1])) :
         undef;
     next unless $whynot;
+    $k =~ m/\t/;
+    if ($` ne $lastk0) { $lastk0=$`; $changek0++; }
     print $whynot,"\t",$k;
     print "\t", defined($_) ? $_ : "-" foreach @r;
     print "\n";
 }
+print "changes of k0: $changek0\n";