Something went wrong. Try again.
Shells in OCaml
Something went wrong. Try again.
123456789101112open Import
(* A functional stack. *)type 'a t = 'a List.t
let empty = []let push v t = v :: tlet pop = function [] -> None | x :: ts -> Some (x, ts)let peek = function [] -> None | x :: _ -> Some xlet pp pp ppf = Fmt.lst pp ppflet to_list v = v