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

```{r,  echo = FALSE, results = "hide"}
include_supplement('diskrete_gleich.num', recursive=TRUE)
library("exams")
library("exams.forge")
instruction <- NULL
library("extraDistr")
summe  <- sample(3:8, size=1)
d      <- distribution("dunif", min=1, max=6)
border <- 9-summe
ptype  <- "greater"
lsg    <- 1-cdf(d, border)
sc     <- num_result(lsg, 4)
```

Question
=======

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

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

Bei dem Würfelspiel Böse Neun müssen Sie mit mehreren Würfelwürfen so dicht wie möglich an die Augensumme Neun herankommen. Überschreitet Ihre Augensumme Neun, scheiden Sie aus. Ihre derzeitige Augensumme ist `r summe`.
Mit welcher Wahrscheinlichkeit scheiden Sie beim nächsten Wurf aus?

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

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