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
|
#! /usr/bin/lua
-- 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
function shortestdistance(a0)
if #a0 % 2 ~= 0 then
return {}
end
local a = a0
table.sort(a)
local out = {}
for i = 1, #a, 2 do
if a[i] ~= a[i+1] then
return {}
end
table.insert(out, {a[i], a[i]})
end
return out
end
if recursive_compare(shortestdistance({3, 2, 3, 2, 2, 2}), {{2, 2}, {2, 2}, {3, 3}}) then
io.write("Pass")
else
io.write("FAIL")
end
io.write(" ")
if recursive_compare(shortestdistance({1, 2, 3, 4}), {}) then
io.write("Pass")
else
io.write("FAIL")
end
print("")
|
