From 5554bb00d92bee7f864f8d6051ddfb6281386087 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Tue, 10 Aug 2021 20:01:50 -0600
Subject: ch-1.raku

---
 challenge-125/mark-anderson/raku/ch-1.raku | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/challenge-125/mark-anderson/raku/ch-1.raku b/challenge-125/mark-anderson/raku/ch-1.raku
index 14b43975f0..510bd3cf53 100644
--- a/challenge-125/mark-anderson/raku/ch-1.raku
+++ b/challenge-125/mark-anderson/raku/ch-1.raku
@@ -4,8 +4,6 @@
 # https://en.wikipedia.org/wiki/Formulas_for_generating_Pythagorean_triples#Dickson's_method
 #
 
-use Prime::Factor;
-
 multi MAIN($N)
 {
     .say for py-tris($N);
@@ -52,7 +50,7 @@ multi py-tris($N where * > 0)
 
 sub factor-pairs($n)
 {
-    my @divs = proper-divisors($n);
-    @divs .= grep(* < sqrt($n));
-    @divs.map({ $_, $n div $_ });
+    grep ({ $n %% $_ }), 1..^sqrt($n)
+
+    andthen .map({ $_, $n div $_ });
 }
-- 
cgit