Barber
Contents
- 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 :: (System () -> b) -> RDist b
- data Category
- = ThreeOrLess
- | FourToTen
- | MoreThanTen
- cat :: Time -> Category
- perc :: Float -> String
- barberIdle :: RDist String
- customerWait :: RDist Category
barber shop
barberSystem :: (System () -> b) -> RDist bSource
category
Constructors
| ThreeOrLess | |
| FourToTen | |
| MoreThanTen |
evaluation
barberIdle :: RDist StringSource
avg barber idle time
customerWait :: RDist CategorySource
avg customer waiting time (unserved customers)