diff options
| author | deadmarshal <adeadmarshal@gmail.com> | 2022-12-28 10:47:13 +0330 |
|---|---|---|
| committer | deadmarshal <adeadmarshal@gmail.com> | 2022-12-28 10:47:13 +0330 |
| commit | 977802cd25bb919bbc0bad828d014a68fc7bab17 (patch) | |
| tree | f997db1a859bf124b7ab22248a0c4a4974d610a7 /challenge-197/deadmarshal/lua/ch-2.lua | |
| parent | 9720dd7a3a5d6c22d6cc034c363d1d09e309e745 (diff) | |
| download | perlweeklychallenge-club-977802cd25bb919bbc0bad828d014a68fc7bab17.tar.gz perlweeklychallenge-club-977802cd25bb919bbc0bad828d014a68fc7bab17.tar.bz2 perlweeklychallenge-club-977802cd25bb919bbc0bad828d014a68fc7bab17.zip | |
TWC197
Diffstat (limited to 'challenge-197/deadmarshal/lua/ch-2.lua')
| -rw-r--r-- | challenge-197/deadmarshal/lua/ch-2.lua | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/challenge-197/deadmarshal/lua/ch-2.lua b/challenge-197/deadmarshal/lua/ch-2.lua new file mode 100644 index 0000000000..252eb43d07 --- /dev/null +++ b/challenge-197/deadmarshal/lua/ch-2.lua @@ -0,0 +1,14 @@ +local function wiggle_sort(t) + for i=1, #t-1 do + if (i % 2 ~= 0) == (t[i] > t[i+1]) then + t[i],t[i+1] = t[i+1],t[i] + end + end +end + +local t1,t2 = {1,5,1,1,6,4},{1,3,2,2,3,1} +wiggle_sort(t1) +wiggle_sort(t2) +print(table.concat(t1,' ')) +print(table.concat(t2,' ')) + |