diff options
| -rw-r--r-- | challenge-118/cheok-yin-fung/perl/ch-2.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/challenge-118/cheok-yin-fung/perl/ch-2.pl b/challenge-118/cheok-yin-fung/perl/ch-2.pl index 9a3e282d32..1d43c630e9 100644 --- a/challenge-118/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-118/cheok-yin-fung/perl/ch-2.pl @@ -38,6 +38,9 @@ N -> c1 -> b2 -> b1 : 3 + 2 + 3 = 8 use strict; use warnings; use Algorithm::Combinatorics qw/permutations/; +#use Memoize; # faster! learn from Mr Roger Bell_West's code + +#memoize("expand"); # faster! learn from Mr Roger Bell_West's code die "Give me positions with treasure!\n" unless $ARGV[0]; my @treasures = map { binumeric_position($_) } @ARGV; |