Fivenum: Difference between revisions

fivenum :: (Fractional a, Ord a) => [Doublea] -> [Doublea]

| lenl >= 5 = (*0.5) . ((+) <$> (!!) sorteds . floor <*> (!!) sorteds . ceiling) . pred <$> [1, lqq, succ lenl / 2, succ lenl - lqq, lenl]

| otherwise = sorteds

lenl = realToFrac $ length xs

lqq = realToFrac (floor $ (lenl + 3) / 2) / 2

sorteds = sort xs