From a82c4ec967f1060377070b4cde901bef0d2e1d18 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Thu, 17 Mar 2022 11:11:18 +0100
Subject: Task 2 done

---
 challenge-156/luca-ferrari/raku/ch-2.p6 | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 challenge-156/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-156/luca-ferrari/raku/ch-2.p6 b/challenge-156/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..9788f65fbe
--- /dev/null
+++ b/challenge-156/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,8 @@
+#!raku
+
+sub MAIN( Int $n where { $n > 0 } ) {
+    my @divisors = ( 1 .. $n - 1 ).grep( $n %% * );
+    '0'.say and exit if @divisors.sum <= $n
+		     || @divisors.combinations.map( *.sum ).grep( * == $n ).elems > 0;
+    '1'.say;
+}
-- 
cgit