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*. |
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 |