<!--- Filename should be: topic_story_anwserformat.Rmd --->

```{r,  echo = FALSE, results = "hide"}
include_supplement('stetige_gleich.num', recursive=TRUE)
library("exams")
library("exams.forge")
instruction <- NULL
library("extraDistr")
max     <- sample(5:20, size=1)
d       <- distribution("unif", min=0, max=max)
wait    <- sample(3:(max-1), size=1)
border  <- c(wait, max)
ptype   <- "interval"
lsg     <- prob(d, border[1], border[2])
sc      <- num_result(lsg, 4)
```

Question
=======

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

<!--- Exercise text is in story file --->

Sie kommen an eine Busendhaltestelle, an der der Bus regelmäßig alle `r max` Minuten abfährt. Wie groß ist die Wahrscheinlichkeit, dass Sie mehr als `r wait` Minuten warten müssen, bis der nächste Bus abfährt?

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

Meta-information
================
extype: num
exsolution: `r round2(lsg,4)`
extol: 0.001
exname: `r if(exists("story")) story else knitr::current_input()`
