```{r, echo=FALSE}
library('exams')
include_supplement('laplace.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
n2 <- sample(10:30, 1)
n  <- 2*n2+1
k  <- sample(1:n, 1)
df <- data.frame(event=c("schwarzes Feld", "rotes Feld",
                         sprintf("Feld mit einer Zahl größer als %0.f", k),
                                  sprintf("Feld mit einer Zahl kleiner als %0.f", k)),
                 favor=c(n2, n2, n-k, k)
                 )
sel     <- sample(nrow(df), 1)
numer   <- df$favor[sel]
denom   <- n
sc      <- num_result(numer/denom, digits=3)
```

Question
=======

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

Bei einem Roulette Spiel gibt es `r n` durchnummerierte Felder mit den Zahlen von 0 bis `r n-1`. Davon sind `r n2` Felder rot, `r n2` Felder schwarz und ein Feld ist grün. Mit einer Kugel wird ein Feld zufällig ausgewählt. Wie groß ist die Wahrscheinlichkeit, dass die Kugel auf ein `r df$event[sel]` fällt?

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

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