diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-07-19 18:57:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-07-19 18:57:33 +0100 |
| commit | 89e5c73bffca5bdc4efaaea3cb192146a93db558 (patch) | |
| tree | 0beaf7af81ffcf6ecd17b97de887cfea9ef76868 | |
| parent | b599c4955eb233b25d2024ab23009803bfbd61ac (diff) | |
| parent | bf3973657c634d2a48c925e9ce53a37fd619991a (diff) | |
| download | perlweeklychallenge-club-89e5c73bffca5bdc4efaaea3cb192146a93db558.tar.gz perlweeklychallenge-club-89e5c73bffca5bdc4efaaea3cb192146a93db558.tar.bz2 perlweeklychallenge-club-89e5c73bffca5bdc4efaaea3cb192146a93db558.zip | |
Merge pull request #1956 from andemark/branch-for-challenge-069
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; |