Merge pull request #3653 from Scimon/master

Adding caching to challenge 1

1 files changed, 8 insertions, 1 deletions

diff --git a/challenge-102/simon-proctor/raku/ch-1.raku b/challenge-102/simon-proctor/raku/ch-1.raku
index 7e7f64f446..1056977ef7 100644
--- a/challenge-102/simon-proctor/raku/ch-1.raku
+++ b/challenge-102/simon-proctor/raku/ch-1.raku
@@ -22,7 +22,14 @@ multi sub MAIN(
 
 multi sub square(Int $ where * <= 0) returns Bool { False }
 
-multi sub square(Int \i) returns Bool { my \s = i.sqrt; s == s.Int; }
+my %square-cache;
+my $lock = Lock.new;
+multi sub square(Int \i) returns Bool {
+    return %square-cache{i} if defined %square-cache{i};
+    my \r = i.sqrt.narrow ~~ Int;
+    $lock.protect( { %square-cache{i} = r } );
+    return r;
+}
 
 sub rare(Int \r) returns Bool {
     my \f = r.flip;