3 ms·
It's unimportant, but the recently reintroduced 'monad comprehensions' bring out some nice features of this approach: fluStatusGivenPositiveTest = [fluSt
by applicative 13y ago
It's unimportant, but the recently reintroduced 'monad comprehensions' bring out some nice features of this approach:
fluStatusGivenPositiveTest = [fluStatus | fluStatus <- percentWithFlu 10
, testResult <- testRate fluStatus
, testResult == Pos]
where testRate Flu = percentPositive 70
testRate Healthy = percentPositive 10