Parent Directory | Revision Log | Patch
revision 1.10 by matthieu, Wed Jul 16 14:42:18 2003 UTC | revision 1.11 by matthieu, Wed Jul 16 21:45:15 2003 UTC | |
---|---|---|
# | Line 50 open Pattern | Line 50 open Pattern |
50 | class virtual ['a] nn = | class virtual ['a] nn = |
51 | object | object |
52 | val mutable _step = 0 | val mutable _step = 0 |
53 | val mutable _corpus = new corpus [|[|0.0|]|] | val mutable _corpus = new corpus |
54 | method virtual accept : 'a -> unit | method virtual accept : 'a -> unit |
55 | method virtual print : unit | method virtual print : unit |
56 | method addPattern pattern = _corpus#addPattern pattern | method addPattern pattern = _corpus#addPattern pattern |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |