# Haskell, 40

    g l@[a,b,c,d]=2*a+3*b+4*c+d+10*minimum l

instead of removing the minimum number from the rest and adding additional `20`s, this adds additional `10` for the minimum number.