Challenge 48

2 files changed, 15 insertions, 11 deletions

diff --git a/challenge-048/mark-anderson/raku/ch-1.p6 b/challenge-048/mark-anderson/raku/ch-1.p6
index 02fc01baa4..db59eb4ba9 100644
--- a/challenge-048/mark-anderson/raku/ch-1.p6
+++ b/challenge-048/mark-anderson/raku/ch-1.p6
@@ -1,16 +1,15 @@
 #!/usr/bin/env perl6
 
-my @living = 1 .. 50;
-my @temp;
+# I wish I would have thought of the "push @a, shift @a; shift @a;" solution.
 
-while (@living > 1) {
-    loop (my $i = 0; $i < @living; $i += 2) {
-        push @temp, @living[$i];
-    }
-    
-    shift @temp if @temp[*-1] == @living[*-1]; 
-    @living = @temp;
-    @temp   = [];
+my @people = 1 .. 50;
+
+while @people > 1 {
+    my $last = @people[*-1];
+
+    @people  = @people[@people.keys.grep(* %% 2)];
+
+    shift @people if @people[*-1] == $last;
 }
 
-say @living.pop;
+put @people;
diff --git a/challenge-048/mark-anderson/raku/ch-2.p6 b/challenge-048/mark-anderson/raku/ch-2.p6
index d5cf44be9c..de498ab3c5 100644
--- a/challenge-048/mark-anderson/raku/ch-2.p6
+++ b/challenge-048/mark-anderson/raku/ch-2.p6
@@ -1,5 +1,7 @@
 #!/usr/bin/env perl6
      
+# Just brute force.
+
 my $mdy = sub ($self) { 
               sprintf "%02d%02d%04d", .month, .day, .year given $self;
           }
@@ -18,5 +20,8 @@ while ($dt.year < 3000) {
         printf "%02d/%02d/%04d\n", .month, .day, .year given $dt;
     }
 
+    #$dt += 1; # Formatting may be lost with this line 
+               # so I'm doing the below hack for now.
+               # (The issue has been fixed in Rakudo Star RC-1)
     $dt = $dt.succ.clone(formatter => $mdy);
 }