From 286851b7c0628ec9aaecf6d41bd56d13218f53cd Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Tue, 25 Sep 2007 05:55:49 +0000 Subject: remove the dependency to GF.Data.Operations from GF Embed API --- src/GF/Canon/GFCC/GenGFCC.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/GF/Canon') diff --git a/src/GF/Canon/GFCC/GenGFCC.hs b/src/GF/Canon/GFCC/GenGFCC.hs index f1d4e8923..cd15ae9cf 100644 --- a/src/GF/Canon/GFCC/GenGFCC.hs +++ b/src/GF/Canon/GFCC/GenGFCC.hs @@ -2,7 +2,7 @@ module GF.Canon.GFCC.GenGFCC where import GF.Canon.GFCC.DataGFCC import GF.Canon.GFCC.AbsGFCC -import GF.Data.Operations + import qualified Data.Map as M import System.Random @@ -26,6 +26,11 @@ generate gfcc cat = concatMap (\i -> gener i cat) [0..] Tr _ [] -> 1 Tr _ ts -> maximum (map depth ts) + 1 +combinations :: [[a]] -> [[a]] +combinations t = case t of + [] -> [[]] + aa:uu -> [a:u | a <- aa, u <- combinations uu] + -- generate an infinite list of trees randomly generateRandom :: StdGen -> GFCC -> CId -> [Exp] generateRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0) gen) cat where -- cgit v1.2.3