
-- This function takes a list of values and returns the list of zscores
-- Order is maintained
allZScores :: (Floating a) => [a] -> [a]
allZScores [] = []
allZScores [a] = [a]
allZScores xs = map getZ xs
 	where getZ = zScore (mean xs) (standardDeviation xs)

-- This will take a Score, a Mean, and a Standard Deviation and return the