GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Avoid crash in random generation with probabilities

Browse Source
This commit is contained in:
hallgren
2013-01-29 13:59:20 +00:00
parent 84fa796de4
commit 211cd9bb25
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Generate.hs
View File

@@ -169,6 +169,6 @@ instance RandomGen g => Selector (Identity g) where
hit :: Double -> [(Double,Expr,TType)] -> (Double,(Expr,TType),[(Double,Expr,TType)]) hit :: Double -> [(Double,Expr,TType)] -> (Double,(Expr,TType),[(Double,Expr,TType)])
hit d (gen@(p,e,ty):gens) hit d (gen@(p,e,ty):gens)
| d < p = (p,(e,ty),gens) | d < p || null gens = (p,(e,ty),gens)
| otherwise = let (p',e_ty',gens') = hit (d-p) gens | otherwise = let (p',e_ty',gens') = hit (d-p) gens
in (p',e_ty',gen:gens') in (p',e_ty',gen:gens')