From b736fb2f6a230c678badabac696aa77ac0d6c3e1 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 4 Apr 2022 10:05:53 +0200
Subject: Task 2 done

---
 challenge-159/luca-ferrari/raku/ch-2.p6 | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 mode change 100644 => 100755 challenge-159/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-159/luca-ferrari/raku/ch-2.p6 b/challenge-159/luca-ferrari/raku/ch-2.p6
old mode 100644
new mode 100755
index 4f7c3ef22b..5f9a75537e
--- a/challenge-159/luca-ferrari/raku/ch-2.p6
+++ b/challenge-159/luca-ferrari/raku/ch-2.p6
@@ -1,2 +1,30 @@
 #!raku
 # Perl Weekly Challenge 159
+
+sub prime-factors( Int $n ) {
+    my $number = $n;
+    my @factors;
+
+    my $factor = 2;
+    while ( $number > 1 && $factor <= $number ) {
+        if ( $number %% $factor ) {
+            @factors.push: $factor;
+            $number /= $factor;
+        }
+        else {
+            $factor++;
+        }
+    }
+
+    return @factors;
+}
+
+
+sub MAIN( Int $n where { $n > 0 } ) {
+
+    my @prime-factors = prime-factors( $n );
+    '0'.say and exit if @prime-factors.elems != @prime-factors.unique.elems;
+    '1'.say and exit if @prime-factors.unique.elems %% 2;
+    '-1'.say and exit;
+
+}
-- 
cgit