<!--- 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")
d      <- distribution("dunif", min=1, max=6)
border <- sample(1:5, size=1)+1
ptype  <- "point"
lsg    <- prob1(d, border)
sc     <- num_result(lsg, 4)
```

Question
=======

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

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

Bei dem Würfelspiel Jule müssen Sie so schnell wie möglich nacheinander die Werte 1 bis 6 in der richtigen Zählfolge zu werfen. Als letzte Zahl haben Sie eine `r border-1` auf ihrer Liste abgestrichen. Mit welcher Wahrscheinlichkeit werfen Sie beim nächsten Wurf die nächste benötigte Zahl?

```{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()`
