package refl

  1. Overview
  2. Docs

Source file ListExt.ml

1
2
let fold_lefti f acc list =
  snd (List.fold_left (fun (i, acc) x -> (succ i, f i acc x)) (0, acc) list)
OCaml

Innovation. Community. Security.