diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-05-25 14:06:48 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-05-25 14:06:48 +0100 |
| commit | 7b034af4fcaeb97417064c45c1008a1b0d700b6e (patch) | |
| tree | 2020cb492b0ecc886b213c3760d8160121f463e2 | |
| parent | 2691c53b2da60f1c5801a77f845326b0140dcf66 (diff) | |
| parent | 7ddebac0eee1393d2d18d89e534993b9c794ece8 (diff) | |
| download | perlweeklychallenge-club-7b034af4fcaeb97417064c45c1008a1b0d700b6e.tar.gz perlweeklychallenge-club-7b034af4fcaeb97417064c45c1008a1b0d700b6e.tar.bz2 perlweeklychallenge-club-7b034af4fcaeb97417064c45c1008a1b0d700b6e.zip | |
Merge pull request #4146 from Kaiepi/challenge-114
Add Ben Davies' Raku solutions for challenge 114
| -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); +} |