-
Notifications
You must be signed in to change notification settings - Fork 311
/
ch-2.lua
executable file
·63 lines (57 loc) · 1.42 KB
/
ch-2.lua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
#! /usr/bin/lua
function numbergame(a0)
local out = {}
local a = a0
table.sort(a)
for i = 1, #a, 2 do
table.insert(out, a[i + 1])
table.insert(out, a[i])
end
return out
end
-- by Michael Anderson at
-- https://stackoverflow.com/questions/8722620/comparing-two-index-tables-by-index-value-in-lua
-- modified by Roger
function recursive_compare(t1,t2)
-- Use usual comparison first.
if t1==t2 then return true end
-- We only support non-default behavior for tables
if (type(t1)~="table") then return false end
-- They better have the same metatables
local mt1 = getmetatable(t1)
local mt2 = getmetatable(t2)
if( not recursive_compare(mt1,mt2) ) then return false end
-- Build list of all keys
local kk = {}
for k1, _ in pairs(t1) do
kk[k1] = true
end
for k2, _ in pairs(t2) do
kk[k2] = true
end
-- Check each key that exists in at least one table
for _, k in ipairs(kk) do
if (not recursive_compare(t1[k], t2[k])) then
return false
end
end
return true
end
if recursive_compare(numbergame({2, 5, 3, 4}), {3, 2, 5, 4}) then
io.write("Pass")
else
io.write("FAIL")
end
io.write(" ")
if recursive_compare(numbergame({9, 4, 1, 3, 6, 4, 6, 1}), {1, 1, 4, 3, 6, 4, 9, 6}) then
io.write("Pass")
else
io.write("FAIL")
end
io.write(" ")
if recursive_compare(numbergame({1, 2, 2, 3}), {2, 1, 3, 2}) then
io.write("Pass")
else
io.write("FAIL")
end
print("")