simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-10 05:03:54 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

details

Browse source
This commit is contained in:
Simon Cruanes 2014-05-20 19:52:17 +02:00
parent c5b2373c03
commit 29ff651f3b
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
core/CCKList.ml
View file

@ -33,9 +33,14 @@ type + 'a t =
let nil = `Nil let nil = `Nil
let cons a b = `Cons (a,b) let cons a b = `Cons (a,b)
let empty = nil
let singleton x = `Cons (x, fun () -> `Nil) let singleton x = `Cons (x, fun () -> `Nil)
let is_empty = function
| `Nil -> true
| `Cons _ -> false
let to_list l = let to_list l =
let rec direct i (l:'a t) = match l with let rec direct i (l:'a t) = match l with
| `Nil -> [] | `Nil -> []

4
core/CCKList.mli
View file

@ -32,10 +32,14 @@ type + 'a t =
val nil : 'a t val nil : 'a t
val empty : 'a t
val cons : 'a -> (unit -> 'a t) -> 'a t val cons : 'a -> (unit -> 'a t) -> 'a t
val singleton : 'a -> 'a t val singleton : 'a -> 'a t
val is_empty : 'a t -> bool
val of_list : 'a list -> 'a t val of_list : 'a list -> 'a t
val to_list : 'a t -> 'a list val to_list : 'a t -> 'a list