RosettaCodeData/Task/Pointers-and-references/OCaml/pointers-and-references.ml

let p = ref 1;; (* create a new "reference" data structure with initial value 1 *)
let k = !p;;    (* "dereference" the reference, returning the value inside *)
p := k + 1;;    (* set the value inside to a new value *)
Initial data commit 2023-07-01 11:58:00 -04:00			`let p = ref 1;; (* create a new "reference" data structure with initial value 1 *)`
			`let k = !p;; (* "dereference" the reference, returning the value inside *)`
			`p := k + 1;; (* set the value inside to a new value *)`