Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 10 lines (7 sloc) 0.195 kB
3056aea @astro much more content
astro authored
1 import System.Environment
2 import Text.Printf
3
4 main = do
5 [d] <- map read `fmap` getArgs
6 printf "%f\n" (mean [1..d])
7
8 mean :: [Double] -> Double
9 mean xs = sum xs / fromIntegral (length xs)
Something went wrong with that request. Please try again.