simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-08 20:25:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Merge remote-tracking branch 'perso/master' into CCHeap

Browse source
This commit is contained in:
Fardale 2018-01-27 20:18:51 +01:00
commit dcd975ce85
4 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
containers.opam
View file

@ -6,7 +6,7 @@ maintainer: "simon.cruanes.2007@m4x.org"
build: [
["jbuilder" "build" "-p" name "-j" jobs]
]
build-doc: [ "jbuilder" "doc" ]
build-doc: [ "jbuilder" "build" "@doc" ]
build-test: [ "jbuilder" "runtest" ]
depends: [
"jbuilder" {build}

7
src/core/CCList.ml
View file

@ -855,6 +855,10 @@ let head_opt = function
| [] -> None
| x::_ -> Some x
let tail_opt = function
| [] -> None
| _ :: tail -> Some tail
let rec last_opt = function
| [] -> None
| [x] -> Some x
@ -864,6 +868,9 @@ let rec last_opt = function
(Some 1) (head_opt [1;2;3])
(Some 1) (head_opt [1])
None (head_opt [])
(Some [2;3]) (tail_opt [1;2;3])
(Some []) (tail_opt [1])
None (tail_opt [])
(Some 3) (last_opt [1;2;3])
(Some 1) (last_opt [1])
None (last_opt [])

4
src/core/CCList.mli
View file

@ -249,6 +249,10 @@ val head_opt : 'a t -> 'a option
(** First element.
@since 0.20 *)
val tail_opt : 'a t -> 'a t option
(** Return the given list without its first element.
@since NEXT_RELEASE *)
val last_opt : 'a t -> 'a option
(** Last element.
@since 0.20 *)

4
src/core/CCListLabels.mli
View file

@ -159,6 +159,10 @@ val head_opt : 'a t -> 'a option
(** First element.
@since 0.20 *)
val tail_opt : 'a t -> 'a t option
(** Return the given list without its first element.
@since NEXT_RELEASE *)
val last_opt : 'a t -> 'a option
(** Last element.
@since 0.20 *)