Merge pull request #2786 from pjdurai/week-086-raku

Week 086 raku

1 files changed, 14 insertions, 0 deletions

diff --git a/challenge-086/pjdurai/raku/ch-1.p6 b/challenge-086/pjdurai/raku/ch-1.p6
new file mode 100644
index 0000000000..589694ef63
--- /dev/null
+++ b/challenge-086/pjdurai/raku/ch-1.p6
@@ -0,0 +1,14 @@
+use Test;
+
+sub solve(@N, $A){
+    for @N.combinations: 2 -> @pair {
+        return 1 if abs(@pair[0] - @pair[1]) == $A
+    }
+    return 0;
+}
+
+multi MAIN(){
+    ok solve((1, 5, 2, 9, 7), 6) == 1, "(1, 5, 2, 9, 7), 6) -> 1";
+    ok solve((10, 8, 12, 15, 5), 7 ) == 1, "(10, 8, 12, 15, 5), 7 ) -> 1";
+    ok solve((10, 30, 20, 50, 40), 15) == 0, "(10, 30, 20, 50, 40), 15) -> 0 ";
+}