diff options
| author | James Smith <baggy@baggy.me.uk> | 2021-06-07 10:50:08 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-06-07 10:50:08 +0100 |
| commit | da6a2fd160477b502aff0de832ec15f6815fb522 (patch) | |
| tree | 141595c5055f038fd5c75e8d8d068385a9bf565f /challenge-116/james-smith | |
| parent | d9649d3b3fc16ec18b3d95cb7ffbcd6e56e0deda (diff) | |
| download | perlweeklychallenge-club-da6a2fd160477b502aff0de832ec15f6815fb522.tar.gz perlweeklychallenge-club-da6a2fd160477b502aff0de832ec15f6815fb522.tar.bz2 perlweeklychallenge-club-da6a2fd160477b502aff0de832ec15f6815fb522.zip | |
Update README.md
Diffstat (limited to 'challenge-116/james-smith')
| -rw-r--r-- | challenge-116/james-smith/README.md | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/challenge-116/james-smith/README.md b/challenge-116/james-smith/README.md index 3c3e8c5577..970ed3df12 100644 --- a/challenge-116/james-smith/README.md +++ b/challenge-116/james-smith/README.md @@ -30,11 +30,12 @@ number each time through the loop.. ```perl sub splitnum { - my($in,$start) = (shift,''); + my( $in, $start ) = ( shift, '' ); foreach( split //, $in ) { - my $string = my $end = ($start .= $_ ); - $string .= ++$end while $in gt $string && length $in > length $string; - return [$start..$end] if $string eq $in; + my $string = my $end = $start .= $_; + $string .= ++$end while $in gt $string + && length $in > length $string; + return [ $start .. $end ] if $string eq $in; } } ``` |