Merge pull request #1709 from andemark/branch-for-challenge-060

Challenge 60 Solutions

2 files changed, 26 insertions, 3 deletions

diff --git a/challenge-060/mark-anderson/raku/ch-1.raku b/challenge-060/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..5ad393a053
--- /dev/null
+++ b/challenge-060/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,25 @@
+#!/usr/bin/env raku
+
+my %letter;
+my %number;
+
+my $number = 1;
+my $letter = "A";
+
+loop {
+    last if $number > 16384;
+
+    %letter{$number} = $letter;
+    %number{$letter} = $number;
+
+    $number++;
+    $letter++;
+}
+
+multi sub MAIN (Str $str where $str.all ~~ /<[A..Z]>/) {
+    say %number{$str};
+}
+
+multi sub MAIN (UInt $num where $num <= 16384) {
+    say %letter{$num};
+}
diff --git a/challenge-060/mark-anderson/raku/ch-2.raku b/challenge-060/mark-anderson/raku/ch-2.raku
index eb3da74c55..d3e4b676fe 100644
--- a/challenge-060/mark-anderson/raku/ch-2.raku
+++ b/challenge-060/mark-anderson/raku/ch-2.raku
@@ -9,9 +9,7 @@ sub MAIN (*@L where @L.all ~~ UInt) {
 
     my @ans = gather {
         for (10**($x-1)..^$y) -> $num {
-            my $digits = $num.comb;
-
-            if $digits (<=) $list {
+            if $num.comb (<=) $list {
                 take $num;
             }
         }