Anonymous user
Fivenum: Difference between revisions
added Haskell
(Added Wren) |
(added Haskell) |
||
Line 598:
[-1.95059594 -0.62759469 0.14082834 0.73438555 1.73131507]
</pre>
=={{header|Haskell}}==
{{trans|Python}}
<lang haskell>import Data.List (sort)
fivenum :: [Double] -> [Double]
fivenum [] = []
fivenum xs
| len >= 5 = (* 0.5) . ((+) <$> (!!) sorted . floor <*> (!!) sorted . ceiling) . pred <$> [1, lq, succ len / 2, succ len - lq, len]
| otherwise = sorted
where
len = realToFrac $ length xs
lq = realToFrac (floor $ (len + 3) / 2) / 2
sorted = sort xs
testValues :: [Double]
testValues =
[ 0.14082834, 0.09748790, 1.73131507, 0.87636009, -1.95059594, 0.73438555, -0.03035726, 1.46675970
, -0.74621349, -0.72588772, 0.63905160, 0.61501527, -0.98983780, -1.00447874, -0.62759469, 0.66206163
, 1.04312009, -0.10305385, 0.75775634, 0.32566578 ]
main :: IO ()
main = print $ fivenum testValues</lang>
{{out}}
<pre>[-1.95059594,-0.676741205,0.23324706,0.746070945,1.73131507]</pre>
=={{header|J}}==
'''Solution'''
| |||