/[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.9 by matthieu, Thu Jul 10 23:04:02 2003 UTC revision 1.10 by matthieu, Wed Jul 16 14:42:18 2003 UTC
# Line 54  object Line 54  object
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
57      method getCorpus = _corpus
58      method getLearnPos = _corpus#getLearnPos
59      method getLearnVector = let vector = _corpus#getLearnVector _corpus#getLearnPos in
60        _corpus#learnPosInc; vector
61  end  end
   

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

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