diff options
| author | James Smith <baggy@baggy.me.uk> | 2021-06-11 22:07:17 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-06-11 22:07:17 +0100 |
| commit | b7f163ef948758d60d69b29282de77f74f8aa31a (patch) | |
| tree | 6862218ffe6fcc84297619ed76d5bdf76e884410 /challenge-116 | |
| parent | d6251ad9cc45c9516f42d3ade22c35ee26878488 (diff) | |
| download | perlweeklychallenge-club-b7f163ef948758d60d69b29282de77f74f8aa31a.tar.gz perlweeklychallenge-club-b7f163ef948758d60d69b29282de77f74f8aa31a.tar.bz2 perlweeklychallenge-club-b7f163ef948758d60d69b29282de77f74f8aa31a.zip | |
Update README.md
Diffstat (limited to 'challenge-116')
| -rw-r--r-- | challenge-116/james-smith/README.md | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-116/james-smith/README.md b/challenge-116/james-smith/README.md index 9d77f3e59f..9900d1f1f9 100644 --- a/challenge-116/james-smith/README.md +++ b/challenge-116/james-smith/README.md @@ -32,7 +32,8 @@ sub splitnum { my( $in, $start ) = ( shift, '' ); for( split //, substr $in, 0, (my $len = length $in) >> 1) { my @range = ( my $str = my $end = $start .= $_ ); - ($str .= ++$end) && push @range, $end while $len > length $str; + ($str .= ++$end) && push @range, $end while ($len > length $str) && + $end eq substr $in,length($str)-length($end),length($end); return \@range if $string eq $in; } return [$in]; |