fac n = if n > 1 then n * fac (n-1) else 1 fac' n k = if k > 0 then n * fac' (n-1) (k-1) else 1 -- die höchsten k Faktoren von fac n binomi 0 k = if k == 0 then 1 else 0 binomi n k = binomi (n-1) (k-1) + binomi (n-1) k -- Pascalsches Dreieck binomi' n k = fac' n k / fac k -- direkt hypergeo nw kw ns ks = binomi' nw kw * binomi' ns ks / binomi' (nw+ns) (kw+ks) -- W. daß kw w. und ks s. Kugeln aus Urne mit nw w. und ns s. Kugeln gezogen werden