package metapp

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

Source file accu.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
type 'a t = {
    length : int;
    list : 'a list;
  }

let empty = { length = 0; list = [] }

let add value { length; list } =
  length, { length = succ length; list = value :: list }

let length { length; _ } =
  length

let to_array ({ length; list } : 'a t) : 'a array =
  match list with
  | [] -> [||]
  | hd :: tl ->
      let result = Array.make length hd in
      let rec fill i list =
        match list with
        | [] -> ()
        | hd :: tl ->
            result.(i) <- hd;
            fill (pred i) tl in
      fill (length - 2) tl;
      result
OCaml

Innovation. Community. Security.