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

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

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

revision 1.4 by srv89, Thu Jul 10 20:06:52 2003 UTC revision 1.5 by matthieu, Thu Jul 10 23:05:01 2003 UTC
# Line 48  Line 48 
48    class.    class.
49  *)  *)
50    
51  class ['a] corpus =  class corpus (pattern : float array array) =
52  object  object
53    (**    (**
54      The patterns list.      The patterns list.
55    *)    *)
56    val mutable _patterns = []    val mutable _patterns = [pattern]
57    
58    (**    (**
59      A get*.      A get*.
# Line 76  object Line 76  object
76    (**    (**
77      Adds a pattern to the object's patterns set.      Adds a pattern to the object's patterns set.
78    *)    *)
79    method addPattern (pattern : 'a) = List.append _patterns pattern    method addPattern pattern = List.append _patterns pattern
80    
81  end  end

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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