normalize :: Fractional a => [a] -> [a]
normalize x = let s = sum x in map (/s) x
normalize :: Fractional a => [a] -> [a]
normalize x = let s = sum x in map (/s) x
normalize x = let s = sum x in map (/s) x