diff options
| author | deadmarshal <adeadmarshal@gmail.com> | 2022-11-20 10:46:28 +0330 |
|---|---|---|
| committer | deadmarshal <adeadmarshal@gmail.com> | 2022-11-20 10:46:28 +0330 |
| commit | 4a6109910c67852630b4d5b50d2a1bf465cfbeaa (patch) | |
| tree | 6e42048916f594d7761bf110717780a31e556b05 /challenge-191/deadmarshal/lua/ch-1.lua | |
| parent | bde0adaf7b8dfe99c4e494c932d8702eb8cf9a56 (diff) | |
| download | perlweeklychallenge-club-4a6109910c67852630b4d5b50d2a1bf465cfbeaa.tar.gz perlweeklychallenge-club-4a6109910c67852630b4d5b50d2a1bf465cfbeaa.tar.bz2 perlweeklychallenge-club-4a6109910c67852630b4d5b50d2a1bf465cfbeaa.zip | |
Challenge191
Diffstat (limited to 'challenge-191/deadmarshal/lua/ch-1.lua')
| -rw-r--r-- | challenge-191/deadmarshal/lua/ch-1.lua | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-191/deadmarshal/lua/ch-1.lua b/challenge-191/deadmarshal/lua/ch-1.lua new file mode 100644 index 0000000000..ced87fe681 --- /dev/null +++ b/challenge-191/deadmarshal/lua/ch-1.lua @@ -0,0 +1,11 @@ +local function twice_largest(t) + table.sort(t, function(a,b) return a > b end) + if t[1] >= 2 * t[2] then return 1 end + return -1 +end + +print(string.format("%2d", twice_largest({1,2,3,4}))) +print(string.format("%2d", twice_largest({1,2,0,5}))) +print(string.format("%2d", twice_largest({2,6,3,1}))) +print(string.format("%2d", twice_largest({4,5,2,3}))) + |