From 7ddebac0eee1393d2d18d89e534993b9c794ece8 Mon Sep 17 00:00:00 2001 From: Ben Davies Date: Tue, 25 May 2021 05:53:54 -0300 Subject: Add Ben Davies' Raku solutions for challenge 114 --- challenge-114/ben-davies/raku/ch-1.raku | 4 ++++ challenge-114/ben-davies/raku/ch-2.raku | 6 ++++++ 2 files changed, 10 insertions(+) create mode 100644 challenge-114/ben-davies/raku/ch-1.raku create mode 100644 challenge-114/ben-davies/raku/ch-2.raku 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); +} -- cgit