From 7f87706ee40a05db4e8572313d68ca8911f1415a Mon Sep 17 00:00:00 2001
From: Matthew Wild <mwild1@gmail.com>
Date: Sun, 22 Mar 2009 12:13:39 +0000
Subject: util.set: New util library

---
 util/set.lua | 75 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 util/set.lua

(limited to 'util/set.lua')

diff --git a/util/set.lua b/util/set.lua
new file mode 100644
index 00000000..08361d03
--- /dev/null
+++ b/util/set.lua
@@ -0,0 +1,75 @@
+
+module "set"
+
+function new(list)
+	local items = {};
+	local set = { items = items };
+	
+	function set:add(set, item)
+		items[item] = true;
+	end
+	
+	function set:contains(set, item)
+		return items[item]
+	end
+	
+	function set:items(set)
+		return items;
+	end
+	
+	function set:remove(set, item)
+		items[item] = nil;
+	end
+	
+	function set:add_list(set, list)
+		for _, item in ipairs(list) do
+			items[item] = true;
+		end
+	end
+	
+	function set:include(set, otherset)
+		for item in pairs(otherset) do
+			items[item] = true;
+		end
+	end
+
+	function set:exclude(set, otherset)
+		for item in pairs(otherset) do
+			items[item] = nil;
+		end
+	end
+	
+	return set;
+end
+
+function union(set1, set2)
+	local set = new();
+	local items = set.items;
+	
+	for item in pairs(set1.items) do
+		items[item] = true;
+	end
+
+	for item in pairs(set2.items) do
+		items[item] = true;
+	end
+	
+	return set;
+end
+
+function difference(set1, set2)
+	local set = new();
+	local items = set.items;
+	
+	for item in pairs(set1.items) do
+		items[item] = true;
+	end
+
+	for item in pairs(set2.items) do
+		items[item] = nil;
+	end
+	
+	return set;
+end
+
+return _M;
-- 
cgit v1.2.3