diff options
| author | Ben Davies <kaiepi@outlook.com> | 2021-05-25 05:53:54 -0300 |
|---|---|---|
| committer | Ben Davies <kaiepi@outlook.com> | 2021-05-25 07:58:26 -0300 |
| commit | 7ddebac0eee1393d2d18d89e534993b9c794ece8 (patch) | |
| tree | c72957ee1149785ff6f508904d7bdbfb823653d0 | |
| parent | c61ba475fd263546925b47f264825a44477622e0 (diff) | |
| download | perlweeklychallenge-club-7ddebac0eee1393d2d18d89e534993b9c794ece8.tar.gz perlweeklychallenge-club-7ddebac0eee1393d2d18d89e534993b9c794ece8.tar.bz2 perlweeklychallenge-club-7ddebac0eee1393d2d18d89e534993b9c794ece8.zip | |
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); +} |