diff options
| -rw-r--r-- | challenge-060/mark-anderson/raku/ch-1.raku | 25 | ||||
| -rw-r--r-- | challenge-060/mark-anderson/raku/ch-2.raku | 4 |
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; } } |