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

```{r,  echo = FALSE, results = "hide"}
library("exams")
include_supplement('haribo.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
library("extraDistr")
repeat{
  n    <- sample(2:10, 1)    # Gruppe 1: keine Frösche und Himbeeren
  nj   <- sample(1:(n-1), 1) # 
  m    <- sample(2:10, 1)    # Gruppe 2: Frösche und Himbeeren
  mj   <- 0                  #             # 
  k    <- mj+nj
  d    <- distribution(name="hyper", m=m, n=n, k=k)
  lsg  <- pmdf(d, 0)
  if ((nj>1) && (k/(n+m)>0.05) && (k*n/(n+m)*m/(m+n)<9)) break
}
ptype    <- "point"
d        <- distribution(name="hyper", m=m, n=n, k=k)
sc       <- num_result(lsg, 4)
grp      <- list()
grp[[1]] <- list(N=n, nj=nj, rs="X",
                 text= "(keine Frösche und Himbeeren)", 
                 rv=rv("X", "Anzahl der Stücke in der Minipackung, die nicht Himbeeren und Frösche sind"))
grp[[2]] <- list(N=m, nj=mj, rs="Y",
                 text= "(Frösche und Himbeeren)", 
                 rv=rv("Y", "Anzahl der Himbeeren und Frösche in der Minipackung"))
```

Question
========

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

Bei Haribo kommen in die Color-Rado Mischung über 40 verschiedene Süßigkeiten (Fruchtgummis, Lakritzkonfekt, Gummibärchen, ...). Wie man aus der Werbung weiß, sind Himbeeren und Frösche die besten Süßigkeiten. In einer Minipackung sind `r m+n` Stücke, davon `r m` Himbeeren oder Frösche und ein Kind greift sich `r k` Stücke aus der Minipackung. Mit welcher Wahrscheinlichkeit hat das Kind keine Himbeeren und Frösche bekommen?

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

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