# http://c...content-available-to-author-only...e.com/a/90683/34718
def f(L):s=n=0;exec"n+=1\nwhile L.count(n)>2:s+=[n*100,1e3][n<2];exec'L.remove(n);'*3\n"*6;C=L.count;print s+100*C(1)+50*C(5)
f([1, 2, 3, 4, 5, 6]) #-> 150
f([1, 1, 1, 2, 3, 5]) #-> 1050
f([1, 1, 1, 1, 1, 1]) #-> 2000
f([2, 2, 2, 2, 2, 2]) #-> 400
f([6, 6, 1, 5, 5, 6]) #-> 800
f([2, 3, 4, 6, 2, 4]) #-> 0
f([1, 5, 1, 5, 1, 5]) #-> 1500
f([5, 5, 5, 5, 2, 3]) #-> 550
f([1, 1, 1, 1, 1, 5]) #-> 1250
f([3, 3, 4, 4, 3, 4]) #-> 700
IyBodHRwOi8vYy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20vYS85MDY4My8zNDcxOAoKZGVmIGYoTCk6cz1uPTA7ZXhlYyJuKz0xXG53aGlsZSBMLmNvdW50KG4pPjI6cys9W24qMTAwLDFlM11bbjwyXTtleGVjJ0wucmVtb3ZlKG4pOycqM1xuIio2O0M9TC5jb3VudDtwcmludCBzKzEwMCpDKDEpKzUwKkMoNSkKCmYoWzEsIDIsIDMsIDQsIDUsIDZdKSAjLT4gMTUwCmYoWzEsIDEsIDEsIDIsIDMsIDVdKSAjLT4gMTA1MApmKFsxLCAxLCAxLCAxLCAxLCAxXSkgIy0+IDIwMDAKZihbMiwgMiwgMiwgMiwgMiwgMl0pICMtPiA0MDAKZihbNiwgNiwgMSwgNSwgNSwgNl0pICMtPiA4MDAKZihbMiwgMywgNCwgNiwgMiwgNF0pICMtPiAwCmYoWzEsIDUsIDEsIDUsIDEsIDVdKSAjLT4gMTUwMApmKFs1LCA1LCA1LCA1LCAyLCAzXSkgIy0+IDU1MApmKFsxLCAxLCAxLCAxLCAxLCA1XSkgIy0+IDEyNTAKZihbMywgMywgNCwgNCwgMywgNF0pICMtPiA3MDAK