diff options
| -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; |