diff options
| -rw-r--r-- | challenge-017/paulo-custodio/perl/ch-1.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/challenge-017/paulo-custodio/perl/ch-1.pl b/challenge-017/paulo-custodio/perl/ch-1.pl index 34eb3335a6..8c61031099 100644 --- a/challenge-017/paulo-custodio/perl/ch-1.pl +++ b/challenge-017/paulo-custodio/perl/ch-1.pl @@ -23,6 +23,9 @@ use strict; use warnings; use 5.030; +use Memoize; +memoize 'A'; + sub A { no warnings 'recursion'; my($m, $n) = @_; |