diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-07-19 10:05:05 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-07-19 10:05:05 -0600 |
| commit | bf3973657c634d2a48c925e9ce53a37fd619991a (patch) | |
| tree | abde55bd4ccec5bb57fffddfe8aaeb61fa71b7a8 | |
| parent | 6a154071813b4fbbba8cd08dcd6f2ba3f909b63b (diff) | |
| download | perlweeklychallenge-club-bf3973657c634d2a48c925e9ce53a37fd619991a.tar.gz perlweeklychallenge-club-bf3973657c634d2a48c925e9ce53a37fd619991a.tar.bz2 perlweeklychallenge-club-bf3973657c634d2a48c925e9ce53a37fd619991a.zip | |
Challenge 69 Solutions
| -rw-r--r-- | challenge-069/mark-anderson/raku/ch-1.raku | 8 | ||||
| -rw-r--r-- | challenge-069/mark-anderson/raku/ch-2.raku | 7 |
2 files changed, 15 insertions, 0 deletions
diff --git a/challenge-069/mark-anderson/raku/ch-1.raku b/challenge-069/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..dae8939cdb --- /dev/null +++ b/challenge-069/mark-anderson/raku/ch-1.raku @@ -0,0 +1,8 @@ +#!/usr/bin/env raku + +sub MAIN(UInt $A, UInt $B where 1 <= $A <= $B <= 10**6) { + for $A..$B -> $num { + next if $num ~~ /<-[01689]>/; + say $num if $num.flip.trans("69" => "96") eq $num; + } +} diff --git a/challenge-069/mark-anderson/raku/ch-2.raku b/challenge-069/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..51fd2355d8 --- /dev/null +++ b/challenge-069/mark-anderson/raku/ch-2.raku @@ -0,0 +1,7 @@ +#!/usr/bin/env raku + +my $SN = q{}; + +$SN ~= "0" ~ $SN.flip.trans("01" => "10") for ^30; + +say $SN; |