Task 1 - Correction - Multi entrance version

1 files changed, 11 insertions, 3 deletions

diff --git a/challenge-150/perlboy1967/perl/ch-1.pl b/challenge-150/perlboy1967/perl/ch-1.pl
index 914cb47a49..736c61559c 100755
--- a/challenge-150/perlboy1967/perl/ch-1.pl
+++ b/challenge-150/perlboy1967/perl/ch-1.pl
@@ -22,6 +22,8 @@ use v5.16;
 use strict;
 use constant LEN => 51;
 
+use Data::Printer;
+
 # Prototype
 sub fibStr ($$$);
 
@@ -38,10 +40,16 @@ printf "The %dth digit in the first having at least 51 digits '%s' is '%s'\n",
 sub fibStr ($$$) {
   my ($s1, $s2, $n) = @_;
 
-  state $s = [$s1, $s2];
+  my $k = "$s1:$s2";
+
+  state $s = {};
+  $s->{$k} //= [$s1, $s2];
+
+  my $r = $s->{$k};
 
-  $s->[@$s] = $s->[@$s-2] . $s->[@$s-1] while (@$s < $n);
+  $r->[@$r] = $r->[@$r-2] . $r->[@$r-1]
+    while (@$r < $n);
 
-  return $s->[$n-1]
+  return $r->[$n-1]
 }