diff options
| -rw-r--r-- | challenge-196/james-smith/perl/ch-2.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/challenge-196/james-smith/perl/ch-2.pl b/challenge-196/james-smith/perl/ch-2.pl index 9f01f6aba5..b376f4322d 100644 --- a/challenge-196/james-smith/perl/ch-2.pl +++ b/challenge-196/james-smith/perl/ch-2.pl @@ -25,10 +25,9 @@ sub range { } sub range_v2 { - my@r=[(shift)x 2]; - $_==$r[-1][1]+1?$r[-1][1]=$_:push@r,[$_,$_]for@_; - grep{$_->[1]!=$_->[0]}@r + my @r = [ (shift) x 2 ]; + $_ == $r[-1][1] + 1 ? $r[-1][1] = $_ : push @r, [$_,$_] for @_; + grep { $_->[1]-$_->[0] } @r } - sub dmp { sprintf '( %s )', join ', ', map { sprintf '[%s]', join ',', @{$_} } @_ } |