Commit ff3e381f authored by charguer's avatar charguer
Browse files

mutablepairing

parent 2c481a82
module Stack = struct
type 'a t = 'a list ref
let create () =
ref []
let is_empty s =
!s = []
let push x s =
s := x::!s
let pop s =
match !s with
| [] -> raise Not_found
| x::t -> s := t; x
end
type elem = int
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment