Fivenum: Difference between revisions

m
Line 605:
fivenum [] = []
fivenum xs
| l >= 5 = (*0.5) . ((+) <$> (!!) s . floor <*> (!!) s . ceiling) . pred <$> [1, q, succ l / 2, succ l - q, l]
| otherwise = s
where
Anonymous user