probability-0.2.2: Probabilistic Functional Programming

Numeric.Probability.Example.Barber

Contents

barber shop
category
evaluation

Synopsis

custServ :: Dist Time
nextCust :: Trans Time
barbers :: Int
customers :: Int
runs :: Int
barberEvent :: ((), (Dist Time, Time -> Dist Time))
barberEvents :: [((), (Dist Time, Time -> Dist Time))]
barberSystem :: Ord b => (System () -> b) -> RDist b
data Category
- = ThreeOrLess
- | FourToTen
- | MoreThanTen
cat :: Time -> Category
perc :: Float -> String
barberIdle :: RDist String
customerWait :: RDist Category

barber shop

custServ :: Dist Time Source

nextCust :: Trans Time Source

barbers :: Int Source

customers :: Int Source

runs :: Int Source

barberEvent :: ((), (Dist Time, Time -> Dist Time))Source

barberEvents :: [((), (Dist Time, Time -> Dist Time))]Source

barberSystem :: Ord b => (System () -> b) -> RDist bSource

category

data Category Source

Constructors

Instances

cat :: Time -> Category Source

perc :: Float -> String Source

evaluation

barberIdle :: RDist String Source

avg barber idle time

customerWait :: RDist Category Source

avg customer waiting time (unserved customers)