Make debuging code selectable with a flag

paultcochrane · paultcochrane · commit 3da805532cb0 · 2016-09-05T19:32:51.000+02:00
diff --git a/categories/euler/prob463-shlomif.p6 b/categories/euler/prob463-shlomif.p6
@@ -30,6 +30,8 @@ see: L<https://www.youtube.com/watch?v=kYX8sjIzjGw>.
 
 =end pod
 
+my $debug = False;
+
 class Poly
 {
     has $.mult;
@@ -134,7 +136,7 @@ sub lookup($mult)
     return @($ret).map({ .mult });
 }
 
-if False
+if $debug
 {
     my $mult = 4;
     while (1)
@@ -246,7 +248,7 @@ sub s_smart($start, $end)
     );
 }
 
-if False
+if $debug
 {
     my $want = 0;
     for 1 .. 100_000 -> $n

Original file line number	Diff line number	Diff line change
`@@ -30,6 +30,8 @@ see: L<https://www.youtube.com/watch?v=kYX8sjIzjGw>.`
`30`	`30`
`31`	`31`	`=end pod`
`32`	`32`
	`33`	`+my $debug = False;`
	`34`	`+`
`33`	`35`	`class Poly`
`34`	`36`	`{`
`35`	`37`	`has $.mult;`
`@@ -134,7 +136,7 @@ sub lookup($mult)`
`134`	`136`	`return @($ret).map({ .mult });`
`135`	`137`	`}`
`136`	`138`
`137`		`-if False`
	`139`	`+if $debug`
`138`	`140`	`{`
`139`	`141`	`my $mult = 4;`
`140`	`142`	`while (1)`
`@@ -246,7 +248,7 @@ sub s_smart($start, $end)`
`246`	`248`	`);`
`247`	`249`	`}`
`248`	`250`
`249`		`-if False`
	`251`	`+if $debug`
`250`	`252`	`{`
`251`	`253`	`my $want = 0;`
`252`	`254`	`for 1 .. 100_000 -> $n`