From 6bdd045604f3841f9fe8b9e1588cfe815ea79d49 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <andy@shitov.ru>
Date: Mon, 9 Nov 2020 08:04:47 +0100
Subject: ash 086-1.raku

---
 challenge-086/ash/raku/ch-1.raku | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 challenge-086/ash/raku/ch-1.raku

diff --git a/challenge-086/ash/raku/ch-1.raku b/challenge-086/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..287ecfab78
--- /dev/null
+++ b/challenge-086/ash/raku/ch-1.raku
@@ -0,0 +1,9 @@
+#!/usr/bin/env raku
+#
+# Task 2 from
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-086/
+
+my @n = 10, 8, 12, 15, 5;
+my $a = 7;
+
+say +so $a == any(@n.combinations(2).map: { abs(.[0] - .[1]) });
-- 
cgit