From 9475d17b170ff168f63087aa0e9029bcac785649 Mon Sep 17 00:00:00 2001
From: Paulo Custodio <pauloscustodio@gmail.com>
Date: Thu, 21 Jan 2021 21:09:41 +0000
Subject: Add Memoize to cache results of recursive calls

---
 challenge-017/paulo-custodio/perl/ch-1.pl | 3 +++
 1 file changed, 3 insertions(+)

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) = @_;
-- 
cgit