diff options
| -rwxr-xr-x | challenge-060/jo-37/perl/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-060/jo-37/perl/ch-2.pl b/challenge-060/jo-37/perl/ch-2.pl index 86172c303f..a2c05683b8 100755 --- a/challenge-060/jo-37/perl/ch-2.pl +++ b/challenge-060/jo-37/perl/ch-2.pl @@ -6,8 +6,8 @@ # - from the parts in @L. # See below. # -# Performs recursive "branch and cut". -# Though data is numeric, processing is strictly string based. +# Though data has been described as numeric, processing is +# strictly string based. (Example provided.) use Test2::V0; use Data::Dumper; @@ -73,7 +73,7 @@ sub gen_num { # Create numbers of given length, below given limit # and assembled from given parts. -# Parts are not restricted to single digits. +# Parts are not restricted to single digits (nor to numeric data). sub create_numbers { my $length = shift; my $limit = shift; |