diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-12-30 12:33:50 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-30 12:33:50 +0000 |
| commit | 55e4c1f92416b1b48eaa776d8002e806155f14fe (patch) | |
| tree | 802046e48b9b9b21c89c372fcc0c19a4b735b440 | |
| parent | 6e1c9e317422dd12254c50ec030107a637b04de4 (diff) | |
| download | perlweeklychallenge-club-55e4c1f92416b1b48eaa776d8002e806155f14fe.tar.gz perlweeklychallenge-club-55e4c1f92416b1b48eaa776d8002e806155f14fe.tar.bz2 perlweeklychallenge-club-55e4c1f92416b1b48eaa776d8002e806155f14fe.zip | |
Update ch-2.pl
| -rw-r--r-- | challenge-197/james-smith/perl/ch-2.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/challenge-197/james-smith/perl/ch-2.pl b/challenge-197/james-smith/perl/ch-2.pl index 4ae40ad026..2b43052f7a 100644 --- a/challenge-197/james-smith/perl/ch-2.pl +++ b/challenge-197/james-smith/perl/ch-2.pl @@ -44,7 +44,6 @@ done_testing(); sub _ws { ## Does wiggle sort by splicing and interleaving sorted list... - my@q=splice @_,(@_+1)/2;map{$_,@q?shift@q:()}@_ my@q=splice @_,0,$#_/2+1;map{$_,@_?shift:()}@q } sub ws_lax { |