More flexible ch-2.pl

1 files changed, 5 insertions, 3 deletions

diff --git a/challenge-161/cheok-yin-fung/perl/ch-2.pl b/challenge-161/cheok-yin-fung/perl/ch-2.pl
index 157845912a..23fd2d143c 100644
--- a/challenge-161/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-161/cheok-yin-fung/perl/ch-2.pl
@@ -27,8 +27,10 @@ foreach (<DICT>) {
 }
 
 
-my @three_letter_words = grep {length $_ == 3} @words;
-my @four_letter_words = grep {length $_ == 4} @words;
+# if the dictionary is very large, 
+# using only 3- and 4-letter words might improve the execution time
+# my @three_letter_words = grep {length $_ == 3} @words;
+# my @four_letter_words = grep {length $_ == 4} @words;
 
 
 
@@ -62,7 +64,7 @@ sub update_found {
 sub next_pan {
     my $new_word;
     my $fine = 0;
-    for my $w (shuffle (@three_letter_words, @four_letter_words)) {
+    for my $w (shuffle (@words)) {
         if ((scalar grep { !$found_alphabet{$_} } split "", $w) == 1) {
             $new_word = $w;
             $fine = 1;