Biocaml 0.4-dev : Biocaml_iset.fold

let fold s ~init ~f =
let rec g n1 n2 a =
if n1 = n2 then f n1 a else
g (n1 + 1) n2 (f n1 a) in
fold_range ~f:g s ~init

AltStyle によって変換されたページ (->オリジナル) /