examples/trigram/TrigramCnc.gf


1
2
3
4
5
6
7
8
9
10
11
12
13

concrete TrigramCnc of Trigram = {

lincat 
    S,Word,Seq = Str;

    Unigram, Bigram, Trigram, Prob = {} ;

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

}