From 55e4c1f92416b1b48eaa776d8002e806155f14fe Mon Sep 17 00:00:00 2001 From: James Smith Date: Fri, 30 Dec 2022 12:33:50 +0000 Subject: Update ch-2.pl --- challenge-197/james-smith/perl/ch-2.pl | 1 - 1 file changed, 1 deletion(-) 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 { -- cgit