simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-24 18:16:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add test

Browse source
This commit is contained in:
Simon Cruanes 2016-04-25 11:51:38 +02:00
parent a722c0c9b8
commit 4cfb82a3fe
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/CCList.ml
View file

@ -818,6 +818,12 @@ let range_by ~step i j =
range_by ~step:max_int 0 2 = [0]
*)
(*$Q
Q.(pair small_int small_int) (fun (i,j) -> \
let i = min i j and j = max i j in \
range_by ~step:1 i j = range i j)
*)
let range i j =
let rec up i j acc =
if i=j then i::acc else up i (j-1) (j::acc)