Make output verbosity optional

Author: paultcochrane

categories/euler/prob036-xenu.pl

@@ -27,13 +27,23 @@
 # Because of memory leak in these versions, this code eats tens of gigabytes of RAM
 #
 
-my $palindromNumbersSum = 0;
-loop (my $i = 1; $i <= 999999; $i+=2) {
-    if ( ($i.flip == $i) && (sprintf('%b',$i).flip == sprintf('%b',$i)) ) {
-        $palindromNumbersSum += $i;
+sub MAIN(Bool :$verbose = False) {
+    my $palindromNumbersSum = 0;
+    loop (my $i = 1; $i <= 999999; $i+=2) {
+        if ( ($i.flip == $i) && (sprintf('%b',$i).flip == sprintf('%b',$i)) ) {
+            $palindromNumbersSum += $i;
+        }
+        if $verbose {
+            say "Checked $i of 999999 numbers" unless $i % 99999;
+        }
+
+    }
+    if $verbose {
+        say "Number of double-base palindromes: $palindromNumbersSum";
+    }
+    else {
+        say $palindromNumbersSum;
     }
-    say "Checked $i of 999999 numbers" unless $i % 99999;
 }
-say "Number of double-base palindromes: $palindromNumbersSum";
 
 # vim: expandtab shiftwidth=4 ft=perl6