#!/usr/bin/lua
--Saigar results finderer
function explode(div,str)
	if (div=='') then return false end
	local pos,arr = 0,{}
	-- for each divider found
	for st,sp in function() return string.find(str,div,pos,true) end do
		table.insert(arr,string.sub(str,pos,st-1)) -- Attach chars left of current divider
		pos = sp + 1 -- Jump past current divider
	end
	table.insert(arr,string.sub(str,pos)) -- Attach chars right of last divider
	return arr
end

function getFunkNum(res)
	local n = explode("\n",res)
	local r = {}
	for _,v in pairs(n) do
		local z = explode(",",v)
		local na = z[#z]
		if not r[na] then
			r[na] = 1
		else
			r[na]=r[na]+1
		end
	end
	return r
end

if arg[1] then
	print("Loading "..arg[1])
	local f = io.open(arg[1],"r")
	local s = f:read("*all")
	f:close()
	local r = getFunkNum(s)
	for k,v in pairs(r) do
		print("Votes for "..k..": "..v)
	end
end