generate :: [(Double -> Double)] -> [Double] -> ([Double] -> Double)
generate functions numbers = func
    where
        func :: [Double] -> Double
        func args = (sum [((functions!!i) (numbers!!i)) * args!!i | i <- [0..((length numbers)-1)]])

sMerge :: [Integer] -> [Integer] -> [Integer]
sMerge (x:xs) (y:ys)
    |x < y      = x:(sMerge xs (y:ys))
    |x == y     = x:y:(sMerge xs ys)
    |otherwise  = y:(sMerge (x:xs) ys)