Fix a regression in latest rakudobrews.

shlomif · shlomif · commit d997e40545df · 2016-03-12T17:00:23.000+02:00
Thanks to moritz from #perl6 on freenode for the analysis.
diff --git a/categories/euler/prob288-shlomif.p6 b/categories/euler/prob288-shlomif.p6
@@ -66,7 +66,7 @@ sub MAIN(:$verbose = False) {
         return factorial_factor_exp($n, ($BASE)) % (($BASE) ** $N_LIM);
     }
 
-    say "Solution == ", +([+] (
+    say "Solution == ", +([+] flat(
         (map { f(($BASE) ** $_) * @t_n[$_] }, 1 .. @t_n-1),
         $sum * f(($BASE) ** $N_LIM)
     )) % (($BASE) ** $N_LIM);

Original file line number	Diff line number	Diff line change
`@@ -66,7 +66,7 @@ sub MAIN(:$verbose = False) {`
`66`	`66`	`return factorial_factor_exp($n, ($BASE)) % (($BASE) ** $N_LIM);`
`67`	`67`	`}`
`68`	`68`
`69`		`- say "Solution == ", +([+] (`
	`69`	`+ say "Solution == ", +([+] flat(`
`70`	`70`	`(map { f(($BASE) ** $_) * @t_n[$_] }, 1 .. @t_n-1),`
`71`	`71`	`$sum * f(($BASE) ** $N_LIM)`
`72`	`72`	`)) % (($BASE) ** $N_LIM);`