Fix Christmas Tree

Raku · Aug 23, 2015 · bdb37bb · bdb37bb
1 parent 7516075
commit bdb37bb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/integration/advent2009-day23.t b/integration/advent2009-day23.t
@@ -124,8 +124,8 @@ sub hamming-sequence() { # 2**a * 3**b * 5**c, where { all(a,b,c) >= 0 }
 # TODO - we need some tests for merge and hamming problem above
 
 my @tree = gather {
-    my %r=[^8]>>.fmt("%03b") Z (0,1,1,1,1,0,0,0);
-    take <. X>[my@i=0 xx 9,1,0 xx 9].join;
+    my %r=(^8)>>.fmt("%03b") Z=> (0,1,1,1,1,0,0,0);
+    take <. X>[my@i=flat 0 xx 9,1,0 xx 9].join;
     for ^9 {take <. X>[@i=map {%r{@i[($_-1)%19,$_,($_+1)%19].join}},^19].join};
 }