diff options
| -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 { |