All pastes #240646 Raw Edit

Untitled

public text v1 · immutable
·published 2006-11-05 20:59 UTC
rendered paste body
f :: Double -> Int -> Int -> Double
f p s l
	| s >  0 && l >  1 = p * (f p (s-1)  l) + (1-p) * (f p s (l-1))
	| s >  0 && l == 1 = p * f p (s-1) l
	| s == 0           = 1