normalize' :: (Eq b, Floating b, Num u, ZipWith b b b u u u, Map b b u u, Fold u b) => u -> u
normalize' v = let n = norm v in if n == 0 then v else V.map (/n) v
normalize' :: (Eq b, Floating b, Num u, ZipWith b b b u u u, Map b b u u, Fold u b) => u -> u
normalize' v = let n = norm v in if n == 0 then v else V.map (/n) v
normalize' v = let n = norm v in if n == 0 then v else V.map (/n) v