added start category S to Trigram.gf

2009-10-08 13:41:34 +00:00
parent a84cdb32c7
commit 624b1075d9
2 changed files with 7 additions and 1 deletions
--- a/examples/trigram/TrigramCnc.gf
+++ b/examples/trigram/TrigramCnc.gf
@@ -1,11 +1,12 @@
 concrete TrigramCnc of Trigram = {

 lincat 
-    Word,Seq = Str;
+    S,Word,Seq = Str;

    Unigram, Bigram, Trigram, Prob = {} ;

 lin
+    sent _ _ l = l ;
    nil  a b c _   = a ++ b ++ c ;
    cons _ _ l c _ = l ++ c ;