24 lines
612 B
Haskell
24 lines
612 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
-- | Example program that continously computes the mean of a list of
|
|
-- numbers.
|
|
module Main where
|
|
|
|
import Control.Concurrent
|
|
import Control.Exception
|
|
import qualified System.Remote.Counter as Counter
|
|
import System.Remote.Monitoring
|
|
|
|
mean :: Fractional a => [a] -> a
|
|
mean xs = sum xs / fromIntegral (length xs)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
handle <- forkServer "localhost" 8000
|
|
counter <- getCounter "iterations" handle
|
|
let loop n = do
|
|
evaluate $ mean [1..n]
|
|
threadDelay 2000
|
|
Counter.inc counter
|
|
loop n
|
|
loop 1000000
|