checked words for wsj-100 experiments

2013-04-07 10:06:37 +00:00
parent 0f3561c1f7
commit 1a0a4a4a56
5 changed files with 237 additions and 233 deletions
@@ -129,8 +129,12 @@ oper

 -- Nouns where the parts are separate (should perhaps be treated as CN)

-   separateN : Str -> N -> N 
-    = \s,n -> mkN (s + "_") n ;
+   separateN = overload {
+     separateN : Str -> N -> N 
+      = \s,n -> mkN (s + "_") n ;
+     separateN : N -> N -> N 
+      = \oma, asunto -> lin N {s = \\c => oma.s ! c + "_" + asunto.s ! c ; h = asunto.h} ;
+      } ;

 -- Nouns used as functions need a case, of which the default is
 -- the genitive.