Module:USHRseats
-- Returns the number of seats in the US House of Representatives held by a given state in a given year (If no year is given, the current number of seats is returned)
local p = {}
function p.main(frame)
state = frame.args[1]
if mw.ustring.len(state)>2 then
state = frame:expandTemplate{ title = 'ISO 3166 code', args = {"US", state} }
state = state:sub(4)
end
year = tonumber(frame.args[2])
if year then
census_number = (year - 1 - math.fmod(year-1,10))/10 - 178
end
states = {
AK = {'-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-', 1, 1, 1, 1, 1, 1, 1},
AL = {'-','-','-','-', 3, 5, 7, 7, 6, 8, 8, 9, 9, 10, 9, 9, 9, 8, 7, 7, 7, 7, 7, 7},
AR = {'-','-','-','-','-','-', 1, 2, 3, 4, 5, 6, 7, 7, 7, 7, 6, 4, 4, 4, 4, 4, 4, 4},
AZ = {'-','-','-','-','-','-','-','-','-','-','-','-','-', 1, 1, 2, 2, 3, 4, 5, 6, 8, 9, 9},
CA = {'-','-','-','-','-','-','-', 2, 3, 4, 6, 7, 8, 11, 20, 23, 30, 38, 43, 45, 52, 53, 53, 52},
CO = {'-','-','-','-','-','-','-','-','-','-', 1, 2, 3, 4, 4, 4, 4, 4, 5, 6, 6, 7, 7, 8},
CT = { 5, 7, 7, 7, 6, 6, 4, 4, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6, 6, 6, 6, 5, 5, 5},
DE = { 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
FL = {'-','-','-','-','-','-','-', 1, 1, 2, 2, 2, 3, 4, 5, 6, 8, 12, 15, 19, 23, 25, 27, 28},
GA = { 3, 2, 4, 6, 7, 9, 8, 8, 7, 9, 10, 11, 11, 12, 10, 10, 10, 10, 10, 10, 11, 13, 14, 14},
HI = {'-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-', 2, 2, 2, 2, 2, 2, 2},
IA = {'-','-','-','-','-','-','-', 2, 6, 9, 11, 11, 11, 11, 9, 8, 8, 7, 6, 6, 5, 5, 4, 4},
ID = {'-','-','-','-','-','-','-','-','-','-','-', 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2},
IL = {'-','-','-','-', 1, 3, 7, 9, 14, 19, 20, 22, 25, 27, 27, 26, 25, 24, 24, 22, 20, 19, 18, 17},
IN = {'-','-','-','-', 3, 7, 10, 11, 11, 13, 13, 13, 13, 13, 12, 11, 11, 11, 11, 10, 10, 9, 9, 9},
KS = {'-','-','-','-','-','-','-','-', 1, 3, 7, 8, 8, 8, 7, 6, 6, 5, 5, 5, 4, 4, 4, 4},
KY = {'-','2', 6, 10, 12, 13, 10, 10, 9, 10, 11, 11, 11, 11, 9, 9, 8, 7, 7, 7, 6, 6, 6, 6},
LA = {'-','-','-', 1, 3, 3, 4, 4, 5, 6, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8, 7, 7, 6, 6},
MA = { 8, 14, 17, 20, 13, 12, 10, 11, 10, 11, 12, 13, 14, 16, 15, 14, 14, 12, 12, 11, 10, 10, 9, 9},
MD = { 6, 8, 9, 9, 9, 8, 6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 7, 8, 8, 8, 8, 8, 8, 8},
ME = {'-','-','-','-', 7, 8, 7, 6, 5, 5, 4, 4, 4, 4, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2},
MI = {'-','-','-','-','-','-', 3, 4, 6, 9, 11, 12, 12, 13, 17, 17, 18, 19, 19, 18, 16, 15, 14, 13},
MN = {'-','-','-','-','-','-','-','-', 2, 3, 5, 7, 9, 10, 9, 9, 9, 8, 8, 8, 8, 8, 8, 8},
MO = {'-','-','-','-', 1, 2, 5, 7, 9, 13, 14, 15, 16, 16, 13, 13, 11, 10, 10, 9, 9, 9, 8, 8},
MS = {'-','-','-','-', 1, 2, 4, 5, 5, 6, 7, 7, 8, 8, 7, 7, 6, 5, 5, 5, 5, 4, 4, 4},
MT = {'-','-','-','-','-','-','-','-','-','-','-', 1, 1, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2},
NC = { 5, 10, 12, 13, 13, 13, 9, 8, 7, 8, 9, 9, 10, 10, 11, 12, 12, 11, 11, 11, 12, 13, 13, 14},
ND = {'-','-','-','-','-','-','-','-','-','-','-', 1, 2, 3, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1},
NE = {'-','-','-','-','-','-','-','-','-', 1, 3, 6, 6, 6, 5, 4, 4, 3, 3, 3, 3, 3, 3, 3},
NH = { 3, 4, 5, 6, 6, 5, 4, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2},
NJ = { 4, 5, 6, 6, 6, 6, 5, 5, 5, 7, 7, 8, 10, 12, 14, 14, 14, 15, 15, 14, 13, 13, 12, 12},
NM = {'-','-','-','-','-','-','-','-','-','-','-','-','-', 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3},
NV = {'-','-','-','-','-','-','-','-','-', 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 4, 4},
NY = { 6, 10, 17, 27, 34, 40, 34, 33, 31, 33, 34, 34, 37, 43, 45, 45, 43, 41, 39, 34, 31, 29, 27, 26},
OH = {'-','-', 1, 6, 14, 19, 21, 21, 19, 20, 21, 21, 21, 22, 24, 23, 23, 24, 23, 21, 19, 18, 16, 15},
OK = {'-','-','-','-','-','-','-','-','-','-','-','-','-', 8, 9, 8, 6, 6, 6, 6, 6, 5, 5, 5},
OR = {'-','-','-','-','-','-','-','-', 1, 1, 1, 2, 2, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6},
PA = { 8, 13, 18, 23, 26, 28, 24, 25, 24, 27, 28, 30, 32, 36, 34, 33, 30, 27, 25, 23, 21, 19, 18, 17},
RI = { 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2},
SC = { 5, 6, 8, 9, 9, 9, 7, 6, 4, 5, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7},
SD = {'-','-','-','-','-','-','-','-','-','-','-', 2, 2, 3, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1},
TN = {'-','-', 3, 6, 9, 13, 11, 10, 8, 10, 10, 10, 10, 10, 9, 10, 9, 9, 8, 9, 9, 9, 9, 9},
TX = {'-','-','-','-','-','-','-', 2, 4, 6, 11, 13, 16, 18, 21, 21, 22, 23, 24, 27, 30, 32, 36, 38},
UT = {'-','-','-','-','-','-','-','-','-','-','-','-', 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4},
VA = { 10, 19, 22, 23, 22, 21, 15, 13, 11, 9, 10, 10, 10, 10, 9, 9, 10, 10, 10, 10, 11, 11, 11, 11},
VT = {'-', 2, 4, 6, 5, 5, 4, 3, 3, 3, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
WA = {'-','-','-','-','-','-','-','-','-','-','-', 2, 3, 5, 6, 6, 7, 7, 7, 8, 9, 9, 10, 10},
WI = {'-','-','-','-','-','-','-', 3, 6, 8, 9, 10, 11, 11, 10, 10, 10, 10, 9, 9, 9, 8, 8, 8},
WV = {'-','-','-','-','-','-','-','-','-', 3, 4, 4, 5, 6, 6, 6, 6, 5, 4, 4, 3, 3, 3, 2},
WY = {'-','-','-','-','-','-','-','-','-','-','-', 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}}
if state=='DC' then
seats = 0
elseif not states[state] then
seats = frame:expandTemplate{ title = 'error', args = {'Error: state not recognized'} }
else
if census_number then
seats = states[state][census_number]
if seats=='-' or not seats then
seats = frame:expandTemplate{ title = 'error', args = {"Error: given year is prior to the first census of this state"} }
end
else
seats = states[state][#states[state]]
end
end
return seats
end
return p