diff options
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("") |