From 44b41f2e16ab83801cfa34fb07fa5c2ef46be24c Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Wed, 6 Oct 2021 12:03:06 +0200
Subject: Task 1 done

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

diff --git a/challenge-133/luca-ferrari/raku/ch-1.p6 b/challenge-133/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..0f7a2ce5c4
--- /dev/null
+++ b/challenge-133/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,18 @@
+#!raku
+
+
+sub MAIN( Int $n where { $n > 0 } ) {
+    $n.say and exit if $n == 1;
+
+    my Int $current-solution = $n +> 1;  # divide by two
+    my Int $next-solution    = 0;
+    while ( $next-solution < $current-solution ) {
+        $next-solution    = ( $current-solution + $n / $current-solution ) +> 1 if ! $next-solution;
+        ( $current-solution, $next-solution ) = $next-solution,
+                                                ( $next-solution + $n / $next-solution ) +> 1;
+        
+    }
+
+    $current-solution.say;
+
+}
-- 
cgit 


From 40a4b5624b29e6d21903dc0f18b7dd79ac719136 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Wed, 6 Oct 2021 13:43:18 +0200
Subject: Task 2 done.

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

diff --git a/challenge-133/luca-ferrari/raku/ch-2.p6 b/challenge-133/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..0af9fa5cd0
--- /dev/null
+++ b/challenge-133/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,44 @@
+#!raku
+
+my @PRIMES = grep {.is-prime}, 1..*;
+
+multi do-factor( 1 ) { (1) }
+multi do-factor( Int $n where { $n > 1 } ) {
+    my ( $pos, $needle ) = 0, $n;
+
+    my @factors;
+
+    for @PRIMES -> $current-factor {
+        last if $current-factor > $needle;
+        next unless $needle %% $current-factor;
+
+        # if here, it is a good factor
+        @factors.push: $current-factor;
+
+        $needle /= $current-factor;
+    }
+
+    
+    @factors;
+    
+
+}
+
+
+
+sub is-smith-number( Int $n where { $n > 0 } ) {
+    return $n.comb.sum == do-factor( $n ).sum;
+}
+
+
+sub MAIN( Int $limit where { $limit > 0 } = 10 ) {
+
+    my @smith-numbers;
+    for 1 .. Inf {
+        next if ! is-smith-number( $_ );
+        @smith-numbers.push: $_;
+        last if @smith-numbers.elems == $limit;
+    }
+
+    @smith-numbers.join( "\n" ).say;
+}
-- 
cgit 


From ff118e4ed11f65f2bbeae6b5b0513d3857b8a914 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Sat, 9 Oct 2021 17:24:21 +0200
Subject: Blog references

---
 challenge-133/luca-ferrari/blog-1.txt | 1 +
 challenge-133/luca-ferrari/blog-2.txt | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 challenge-133/luca-ferrari/blog-1.txt
 create mode 100644 challenge-133/luca-ferrari/blog-2.txt

diff --git a/challenge-133/luca-ferrari/blog-1.txt b/challenge-133/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..6dc13d6def
--- /dev/null
+++ b/challenge-133/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/10/09/PerlWeeklyChallegne133.html#task1
diff --git a/challenge-133/luca-ferrari/blog-2.txt b/challenge-133/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..a3a9243bdf
--- /dev/null
+++ b/challenge-133/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/10/09/PerlWeeklyChallegne133.html#task2
-- 
cgit 


From ce1cb4aee69363f214b710a1fe6d631971e9bf9a Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Sat, 9 Oct 2021 17:25:47 +0200
Subject: Removed unused variable.

---
 challenge-133/luca-ferrari/raku/ch-2.p6 | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/challenge-133/luca-ferrari/raku/ch-2.p6 b/challenge-133/luca-ferrari/raku/ch-2.p6
index 0af9fa5cd0..d2aaf350f4 100644
--- a/challenge-133/luca-ferrari/raku/ch-2.p6
+++ b/challenge-133/luca-ferrari/raku/ch-2.p6
@@ -1,31 +1,37 @@
 #!raku
 
+# a lazy list of all prime numbers
 my @PRIMES = grep {.is-prime}, 1..*;
 
+# divide a number into a list of its own factors
 multi do-factor( 1 ) { (1) }
 multi do-factor( Int $n where { $n > 1 } ) {
-    my ( $pos, $needle ) = 0, $n;
-
+    my $needle =  $n;
     my @factors;
 
     for @PRIMES -> $current-factor {
+        # stop if we got a bigger number
         last if $current-factor > $needle;
+
+        # skip if the number is not a divisor of what we are searching for
         next unless $needle %% $current-factor;
 
         # if here, it is a good factor
         @factors.push: $current-factor;
 
+        # compute the remainder
         $needle /= $current-factor;
     }
 
     
-    @factors;
+    @factors.sort;
     
 
 }
 
 
-
+# It is a smith number if the sum of the digits
+# is the sum of the factors
 sub is-smith-number( Int $n where { $n > 0 } ) {
     return $n.comb.sum == do-factor( $n ).sum;
 }
-- 
cgit