<!--- Filename should be: topic_story_anwserformat.Rmd --->
  
```{r,  echo = FALSE, results = "hide"}
library("exams")
library("exams.forge")
instruction <- NULL
include_supplement('diskrete_gleich.num', recursive=TRUE)
library("extraDistr")
year    <- as.integer(format(Sys.Date(), "%Y"))
day     <- 1
month   <- 1:12
start   <- ISOdate(c(rep(year, 12), year+1), c(month, 1), day)
N       <- as.integer(start[13]-start[1])
d       <- distribution("dunif", min=1, max=N)
m       <- sample(2:11,1)
mname   <- format(start[m], "%B")
wname   <- sprintf("Geburtstag am Tag $i$ des Jahres %i", year)
border  <- as.integer(start[m]-start[1])
n       <- border
ptype   <- "less"
sc      <- num_result(cdf(d, border), 4, tolmult = 1)
border  <- sprintf("\\text{%s}", format(start[m], "%d. %B %Y"))
```

Question
========

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

In einer Übung wollen Sie über das Geburtstagsproblem ("Wie wahrscheinlich ist es, dass in einer Gruppe von $n$ Leuten zwei am gleichen Tag Geburtstag haben?") diskutieren. Zum Start möchte der Übungsleiter wissen, wie groß die Wahrscheinlichkeit ist, das jemand vor dem `r format(start[m], "%d. %B %Y")` Geburtstag hat, wenn die Geburtstage gleichmäßig über das Jahr verteilt sind?  

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

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

