Normalizare

    normalize :: [Float]->[Float]
    normalize list = map (imp list) list
        where imp = (flip (/)) .sqrt .  sum . map (^2)