Vision-open

  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