[euler] progress info now printed with --verbose option

paultcochrane · paultcochrane · commit f0c2694ba763 · 2015-05-16T22:06:01.000+02:00
diff --git a/categories/euler/prob105-shlomif.p6 b/categories/euler/prob105-shlomif.p6
@@ -53,15 +53,17 @@ sub is_special_sum_set(@A)
     return $ret;
 }
 
-my $total_sum = 0;
+sub MAIN(:$verbose = False) {
+    my $total_sum = 0;
 
-for 'sets.txt'.IO.lines -> $l
-{
-    say "Processing $l";
-    my @set = $l.split(',');
-    if (is_special_sum_set(@set))
+    for 'sets.txt'.IO.lines -> $l
     {
-        $total_sum += ([+] @set);
+	say "Processing $l" if $verbose;
+	my @set = $l.split(',');
+	if (is_special_sum_set(@set))
+	{
+	    $total_sum += ([+] @set);
+	}
     }
+    $verbose ?? say "Total Sum = $total_sum" !! say $total_sum;
 }
-say "Total Sum = $total_sum";

Original file line number	Diff line number	Diff line change
`@@ -53,15 +53,17 @@ sub is_special_sum_set(@A)`
`53`	`53`	`return $ret;`
`54`	`54`	`}`
`55`	`55`
`56`		`-my $total_sum = 0;`
	`56`	`+sub MAIN(:$verbose = False) {`
	`57`	`+ my $total_sum = 0;`
`57`	`58`
`58`		`-for 'sets.txt'.IO.lines -> $l`
`59`		`-{`
`60`		`- say "Processing $l";`
`61`		`- my @set = $l.split(',');`
`62`		`- if (is_special_sum_set(@set))`
	`59`	`+ for 'sets.txt'.IO.lines -> $l`
`63`	`60`	`{`
`64`		`- $total_sum += ([+] @set);`
	`61`	`+ say "Processing $l" if $verbose;`
	`62`	`+ my @set = $l.split(',');`
	`63`	`+ if (is_special_sum_set(@set))`
	`64`	`+ {`
	`65`	`+ $total_sum += ([+] @set);`
	`66`	`+ }`
`65`	`67`	`}`
	`68`	`+ $verbose ?? say "Total Sum = $total_sum" !! say $total_sum;`
`66`	`69`	`}`
`67`		`-say "Total Sum = $total_sum";`