```{r, echo=FALSE}
library('exams')
include_supplement('mises.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
denom   <- sample(1000:10000, 1)
numer   <- sample(100:denom, 1)
sc      <- num_result(numer/denom, digits=3)
```

Question
=======

```{r, error=TRUE, child=instruction}
```

Ein Spieler gewinnt $`r numer`$ von $`r denom`$ Spielen. Wie groß ist nach Richard von Mises die Gewinnwahrscheinlichkeit für das nächste Spiel?

```{r, child="mises.num"}
```

Meta-information
================
extype: num
exsolution: `r sc$fx[1]`
extol: `r sc$tolerance`
exname: `r if(exists("story")) story else knitr::current_input()`
