fix warning

This commit is contained in:
Rowan Torbitzky-Lane 2025-03-07 13:11:36 -06:00
parent aca190ec0f
commit c68ff2d329

View File

@ -283,7 +283,7 @@ mode xs =
-- |Utility Function: Calculates the 2-norm of a list and returns it.
twoNorm :: (Floating a) => [a] -> a
twoNorm xs = sqrt $ sum $ map (^ 2) xs
twoNorm xs = sqrt $ sum $ map (^ (2 :: Int)) xs
-- |Utility Function: Takes in any value and returns 0. Used primarily to return 0
-- when a function such as maximum is operating on an empty list.