solutions week 287

2 files changed, 50 insertions, 0 deletions

diff --git a/challenge-287/wambash/raku/ch-1.raku b/challenge-287/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..92907990d6
--- /dev/null
+++ b/challenge-287/wambash/raku/ch-1.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+sub strong-password ($_) {
+    0
+    max (6- .chars)
+    max (3- .contains(/<:Ll>/) - .contains( /<:Lu>/) - .contains( /\d/))
+    max .comb( /(.)$0$0/).elems
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is strong-password('a'),         5;
+    is strong-password('aB2'),       3;
+    is strong-password('PaaSW0rd'),  0;
+    is strong-password('Paaasw0rd'), 1;
+    is strong-password('aaaaa'),     2;
+    done-testing;
+}
+
+multi MAIN ($str) {
+    say strong-password $str
+}
diff --git a/challenge-287/wambash/raku/ch-2.raku b/challenge-287/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..aa4a19ae96
--- /dev/null
+++ b/challenge-287/wambash/raku/ch-2.raku
@@ -0,0 +1,28 @@
+#!/usr/bin/env raku
+
+my token integer { <[+-]>? \d+ };
+my token decimal { <[+-]>? [ \d+ \.\d* | \.\d+ ] };
+my token valid-number {^ [ <integer>|<decimal> ] [<[eE]> <integer>]? $};
+
+
+sub valid-number-check ($str) {
+    $str.contains: &valid-number
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is valid-number-check( '1'),      True;
+    is valid-number-check('-1'),      True;
+    is valid-number-check('a'),       False;
+    is valid-number-check('.'),       False;
+    is valid-number-check('1.2e4.2'), False;
+    is valid-number-check('-1.'),     True;
+    is valid-number-check('+1E-8'),   True;
+    is valid-number-check('.43'),     True;
+    is valid-number-check('1.2e4'),   True;
+    done-testing;
+}
+
+multi MAIN ($str) {
+    say valid-number-check $str
+}