From f4c5e54756a120462dbd7496d7605eb2c3d166fa Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Tue, 21 Dec 2021 11:09:30 +0000
Subject: ch-1.raku

---
 challenge-144/mark-anderson/raku/ch-1.raku | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/challenge-144/mark-anderson/raku/ch-1.raku b/challenge-144/mark-anderson/raku/ch-1.raku
index 6b74750dee..8d0a4b3b3d 100644
--- a/challenge-144/mark-anderson/raku/ch-1.raku
+++ b/challenge-144/mark-anderson/raku/ch-1.raku
@@ -13,11 +13,7 @@ is-deeply (^Inf).hyper.grep(&semi-prime)[1000, 2000, 5000, 9999],
 
 sub semi-prime($n)
 {
-    return True if sqrt($n).is-prime;
-
-    given proper-divisors($n).grep(*.is-prime)
-    {
-        return False if .elems !== 2;
-        return .[0] * .[1] == $n;
-    }
+    my @div = proper-divisors($n).skip;
+    return False if @div ~~ Empty;
+    return @div.grep(*.is-prime) == @div;
 }
-- 
cgit