diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-11-21 04:57:01 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-11-21 04:57:01 +0000 |
| commit | 054a1d856f6600be605d149f7830a7426f828fce (patch) | |
| tree | ee38a9bf6eef686793ab957d964d2c70cb4d3ee7 /challenge-191/deadmarshal/lua/ch-1.lua | |
| parent | 7ac92a4a7fd76a307feefe75fcb666f9525e1b7b (diff) | |
| parent | 4a6109910c67852630b4d5b50d2a1bf465cfbeaa (diff) | |
| download | perlweeklychallenge-club-054a1d856f6600be605d149f7830a7426f828fce.tar.gz perlweeklychallenge-club-054a1d856f6600be605d149f7830a7426f828fce.tar.bz2 perlweeklychallenge-club-054a1d856f6600be605d149f7830a7426f828fce.zip | |
Merge pull request #7110 from deadmarshal/challenge191
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}))) + |