package goblint

  1. Overview
  2. Docs
package goblint
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file gobArray.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
open BatArray

(** Implementations here are from batteries and slightly modified. They are tuned for performance and not necessarily the same style non-library code should be written. *)

let existsi p xs =
  let n = length xs in
  let rec loop i =
    if i = n then false
    else if p i (unsafe_get xs i) then true
    else loop (succ i)
  in
  loop 0

let for_alli p xs =
  let n = length xs in
  let rec loop i =
    if i = n then true
    else if p i (unsafe_get xs i) then loop (succ i)
    else false
  in
  loop 0

let count_matchingi p xs =
  let n = length xs in
  let count = ref 0 in
  for i = 0 to n - 1 do
    if p i (unsafe_get xs i) then
      incr count
  done;
  !count
OCaml

Innovation. Community. Security.

GitHub Discord Twitter Peertube RSS
About
Changelog Releases Industrial Users Academic Users Why OCaml
Ecosystem
Packages Community Events OCaml Planet Jobs
Resources
Install OCaml Get Started Platform Tools Language Manual Standard Library API Books Exercises Papers OCaml Playground Logo
Policies
Carbon Footprint Governance Privacy Code of Conduct