diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-12-19 12:56:35 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-19 12:56:35 +0000 |
| commit | 4957df665798fbb71d337972bd6bb43a8344a51a (patch) | |
| tree | b2745cf862e09ad95d20da4bf7c040b3880942b0 | |
| parent | aded57d669f83dfa227a8c646b3129ff2a084e2d (diff) | |
| download | perlweeklychallenge-club-4957df665798fbb71d337972bd6bb43a8344a51a.tar.gz perlweeklychallenge-club-4957df665798fbb71d337972bd6bb43a8344a51a.tar.bz2 perlweeklychallenge-club-4957df665798fbb71d337972bd6bb43a8344a51a.zip | |
Update ch-2.pl
| -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 ',', @{$_} } @_ } |