diff options
| -rw-r--r-- | challenge-116/james-smith/perl/ch-1.pl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/challenge-116/james-smith/perl/ch-1.pl b/challenge-116/james-smith/perl/ch-1.pl index be01551f47..1bbc1bd3a4 100644 --- a/challenge-116/james-smith/perl/ch-1.pl +++ b/challenge-116/james-smith/perl/ch-1.pl @@ -16,6 +16,7 @@ my @tests = ( ); is( join(',',@{splitnum($_->[0])}),$_->[1] ) foreach @tests; +is( join(',',@{splitnum_no_comments($_->[0])}),$_->[1] ) foreach @tests; done_testing(); @@ -34,7 +35,8 @@ sub splitnum { ## We concatenate the of "end" onto $string until ## it is equal to or larger than the input number - $string .= ++$end while $in gt $string && length $in > length $string; + $string .= ++$end while $in gt $string + && length $in > length $string; ## Finally we return the list if the input and ## string are the same. Note we will always get @@ -54,12 +56,15 @@ sub splitnum { ## length of $n - but only really valid if you are getting very large ## values of $n...} + +## Below is the code above with the commends removed sub splitnum_no_comments { - my($in,$st) = (shift,''); + my( $in, $st ) = ( shift, '' ); for( split //, $in ) { my $t = my $en = $st .= $_; - $t .= ++$en while $in gt $t && length $in > length $t; - return [$st..$en] if $t eq $in; + $t .= ++$en while $in gt $t + && length $in > length $t; + return [ $st .. $en ] if $t eq $in; } } |