Classi e oggetti
# class point x_init =
object
val mutable x = x_init
method get_x = x
method move d = x <- x + d
end;;
class point :
int ->
object val mutable x : int method get_x : int method move : int -> unit end
# let p = new point (3);;
val p : point =
# p#get_x;;
- : int = 3
# p#move 33;;
- : unit = ()
# p#get_x;;
- : int = 36
Previous slide
Next slide
Back to first slide
View graphic version