/[marvin]/marvin/src/libnn/nn.ml
ViewVC logotype

Diff of /marvin/src/libnn/nn.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by matthieu, Thu Jul 10 21:55:33 2003 UTC revision 1.9 by matthieu, Thu Jul 10 23:04:02 2003 UTC
# Line 44  Line 44 
44    @since 06/08/2003    @since 06/08/2003
45  *)  *)
46    
47    open Corpus
48    open Pattern
49    
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|]|]
54    method virtual accept : 'a -> unit    method virtual accept : 'a -> unit
55      method virtual print : unit
56      method addPattern pattern = _corpus#addPattern pattern
57  end  end
58    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26