2007-11-27 05:34:33 -08:00
|
|
|
fun x when x <> 0 -> x / 42
|
2007-11-27 05:37:47 -08:00
|
|
|
;;
|
|
|
|
|
object val virtual mutable x : int val mutable virtual y : int end
|
2007-11-27 06:33:31 -08:00
|
|
|
;;
|
|
|
|
|
- !r
|
|
|
|
|
;;
|
|
|
|
|
! -r
|
|
|
|
|
;;
|
|
|
|
|
-32
|
|
|
|
|
;;
|
|
|
|
|
- - 32
|
|
|
|
|
;;
|
|
|
|
|
!(r.b)
|
|
|
|
|
;;
|
|
|
|
|
(!r).b = !r.b
|
|
|
|
|
;;
|
|
|
|
|
let l : (unit -> int) list = [(fun _ -> 42); (fun _ -> 42)]
|
