diff options
| -rw-r--r-- | challenge-114/ben-davies/raku/ch-1.raku | 4 | ||||
| -rw-r--r-- | challenge-114/ben-davies/raku/ch-2.raku | 6 |
2 files changed, 10 insertions, 0 deletions
diff --git a/challenge-114/ben-davies/raku/ch-1.raku b/challenge-114/ben-davies/raku/ch-1.raku new file mode 100644 index 0000000000..31ddf8333a --- /dev/null +++ b/challenge-114/ben-davies/raku/ch-1.raku @@ -0,0 +1,4 @@ +use v6; +unit sub MAIN(IntStr:D $n) { + say ($n^..*).first({ $^x eq $^x.flip }); +} diff --git a/challenge-114/ben-davies/raku/ch-2.raku b/challenge-114/ben-davies/raku/ch-2.raku new file mode 100644 index 0000000000..4e9a494cfe --- /dev/null +++ b/challenge-114/ben-davies/raku/ch-2.raku @@ -0,0 +1,6 @@ +use v6; +sub bits(Int:D $x --> Int:D) { + grep $x +> * +& 1, 0..$x.log2 } +unit sub MAIN(IntStr:D $n) { + my Int:D $bits = $n.&bits; + say $n && ($n^..*).first(*.&bits == $bits); +} |