-(* $Id$ *)
-
-let rec cut l ~len =
- if len <= 0 then [], l else
- match l with
- a::l ->
- let l1, l2 = cut l ~len:(len-1) in
- a::l1, l2
- | [] ->
- invalid_arg "cut_list"
-
-let rec chop l ~len =
- if l = [] then [] else
- let l1, l2 =
- try cut_list l ~len
- with Invalid_argument _ -> l, []
- in
- l1 :: chop l2 ~len
-
-
-let rec iteri_aux ~f:f ~i = function
- [] -> ()
- | a::l -> f ~i a; iteri_aux ~f:f ~i:(i+1) l
-
-let iteri = iteri_aux ~i:0