GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-27 20:06:28 -06:00
Code Issues Packages Projects Releases Wiki Activity

more commands in gfcc

Browse Source
This commit is contained in:
aarne
2006-10-03 12:59:47 +00:00
parent 1a86f3bb4c
commit 35b9067ed4
4 changed files with 37 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/Canon/GFCC/GenGFCC.hs
+3 -3
View File
@@ -66,7 +66,7 @@ generateRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0) gen) cat where
-- note: you cannot throw away rules with unknown words from the grammar
-- because it is not known which field in each rule may match the input
parse :: GFCC -> CId -> [String] -> [Exp]
parse gfcc cat ws = [t | t <- gen, s <- lins t, words s == ws] where
gen = take 1024 $ generate gfcc cat
parse :: Int -> GFCC -> CId -> [String] -> [Exp]
parse i gfcc cat ws = [t | t <- gen, s <- lins t, words s == ws] where
gen = take i $ generate gfcc cat
lins t = [linearize gfcc lang t | lang <- cncnames gfcc]