diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2022-11-20 14:22:01 -0500 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2022-11-20 14:22:01 -0500 |
| commit | dd682dfee966fe63cbfbbbf6a9cb903b1d831416 (patch) | |
| tree | a71619e10c8dcd29fc13a08beb1325f4a7bc5a84 /challenge-191/roger-bell-west/lua/ch-1.lua | |
| parent | d6d01468fd7a5647b9ba96ebf7a0157ff79f3352 (diff) | |
| parent | bde0adaf7b8dfe99c4e494c932d8702eb8cf9a56 (diff) | |
| download | perlweeklychallenge-club-dd682dfee966fe63cbfbbbf6a9cb903b1d831416.tar.gz perlweeklychallenge-club-dd682dfee966fe63cbfbbbf6a9cb903b1d831416.tar.bz2 perlweeklychallenge-club-dd682dfee966fe63cbfbbbf6a9cb903b1d831416.zip | |
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club
Diffstat (limited to 'challenge-191/roger-bell-west/lua/ch-1.lua')
| -rwxr-xr-x | challenge-191/roger-bell-west/lua/ch-1.lua | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/challenge-191/roger-bell-west/lua/ch-1.lua b/challenge-191/roger-bell-west/lua/ch-1.lua new file mode 100755 index 0000000000..67a03fccb7 --- /dev/null +++ b/challenge-191/roger-bell-west/lua/ch-1.lua @@ -0,0 +1,35 @@ +#! /usr/bin/lua + +function twicelargest(l0) + local l = l0 + table.sort(l) + return l[#l] >= 2 * l[#l-1] +end + +if not twicelargest({1, 2, 3, 4}) then + io.write("Pass") +else + io.write("FAIL") +end +io.write(" ") + +if twicelargest({1, 2, 0, 5}) then + io.write("Pass") +else + io.write("FAIL") +end +io.write(" ") + +if twicelargest({2, 6, 3, 1}) then + io.write("Pass") +else + io.write("FAIL") +end +io.write(" ") + +if not twicelargest({4, 5, 2, 3}) then + io.write("Pass") +else + io.write("FAIL") +end +print("") |