Import 2016 Electoral Vote Data

In[]:=
data=Import[​​"http://www.infoplease.com/us/government/electoral-college-votes-state-elections.html","Data"];
In[]:=
$electoralVotes=Rule@@@​​Extract[data,Most[Most[First[Position[data,"Alabama"]]]]]
Out[]=
{Alabama9,Alaska3,Arizona11,Arkansas6,California55,Colorado9,Connecticut7,Delaware3,District of Columbia3,Florida29,Georgia16,Hawaii4,Idaho4,Illinois20,Indiana11,Iowa6,Kansas6,Kentucky8,Louisiana8,Maine4,Maryland10,Massachusetts11,Michigan16,Minnesota10,Mississippi6,Missouri10,Montana3,Nebraska5,Nevada6,New Hampshire4,New Jersey14,New Mexico5,New York29,North Carolina15,North Dakota3,Ohio18,Oklahoma7,Oregon7,Pennsylvania20,Rhode Island4,South Carolina9,South Dakota3,Tennessee11,Texas38,Utah6,Vermont3,Virginia13,Washington12,West Virginia5,Wisconsin10,Wyoming3}
In[]:=
CloudPut[$electoralVotes,FileNameJoin[{$CloudRootDirectory,"elections-2016","electoral-votes.m"}],Permissions"Public"]
Out[]=
CloudObject
https://www.wolframcloud.com/objects/user-11bcb0ff-b342-47f5-9261-c723dd93c852/elections-2016/electoral-votes.m

In[]:=
$states=Keys[$electoralVotes]
Out[]=
{Alabama,Alaska,Arizona,Arkansas,California,Colorado,Connecticut,Delaware,District of Columbia,Florida,Georgia,Hawaii,Idaho,Illinois,Indiana,Iowa,Kansas,Kentucky,Louisiana,Maine,Maryland,Massachusetts,Michigan,Minnesota,Mississippi,Missouri,Montana,Nebraska,Nevada,New Hampshire,New Jersey,New Mexico,New York,North Carolina,North Dakota,Ohio,Oklahoma,Oregon,Pennsylvania,Rhode Island,South Carolina,South Dakota,Tennessee,Texas,Utah,Vermont,Virginia,Washington,West Virginia,Wisconsin,Wyoming}
Since the District of Columbia is included, there are 51 "states":
In[]:=
Length[$states]
Out[]=
51
In[]:=
sortedevotes=SortBy[evotes,Last]
Out[]=
{Alaska3,Delaware3,District of Columbia3,Montana3,North Dakota3,South Dakota3,Vermont3,Wyoming3,Hawaii4,Idaho4,Maine4,New Hampshire4,Rhode Island4,Nebraska5,New Mexico5,West Virginia5,Arkansas6,Iowa6,Kansas6,Mississippi6,Nevada6,Utah6,Connecticut7,Oklahoma7,Oregon7,Kentucky8,Louisiana8,Alabama9,Colorado9,South Carolina9,Maryland10,Minnesota10,Missouri10,Wisconsin10,Arizona11,Indiana11,Massachusetts11,Tennessee11,Washington12,Virginia13,New Jersey14,North Carolina15,Georgia16,Michigan16,Ohio18,Illinois20,Pennsylvania20,Florida29,New York29,Texas38,California55}
In[]:=
BarChart[Values[sortedevotes],BarOriginLeft,​​ChartLabelsKeys[sortedevotes],​​PlotLabel"Electoral Votes by State",ImageSize1024]
Out[]=

Question: how to win with the fewest states?

In[]:=
biggestStatesTo270=TakeWhile[Reverse[sortedevotes],​​Total[Drop[Values[sortedevotes],​​First@FirstPosition[sortedevotes,#]-1]]≤270&]
Out[]=
{California55,Texas38,New York29,Florida29,Pennsylvania20,Illinois20,Ohio18,Michigan16,Georgia16,North Carolina15,New Jersey14}
In[]:=
TableForm[biggestStatesTo270]
Out[]//TableForm=
California55
Texas38
New York29
Florida29
Pennsylvania20
Illinois20
Ohio18
Michigan16
Georgia16
North Carolina15
New Jersey14