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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
structure Dynarray: DYNARRAY = struct
type 'a t = (int * 'a option Array.array) ref
fun create n =
ref (0, Array.array (n, NONE))
fun create0 () = create 10
fun length dynarr =
let
val (len, _) = !dynarr
in
len
end
fun push dynarr v =
let
val (len, arr) = !dynarr
in
case Int.compare (len, Array.length arr) of
EQUAL =>
let
val arr2 = Array.array (len * 2, NONE)
in
Array.copy { src = arr, dst = arr2, di = 0 };
dynarr := (len, arr2);
push dynarr v
end
| LESS => (
Array.update (arr, len, SOME v);
dynarr := (len + 1, arr)
)
| GREATER => raise Unreachable
end
fun get dynarr n =
let
val (len, arr) = !dynarr
in
if n >= len then
raise Subscript
else
valOf $ Array.sub (arr, n)
end
fun set dynarr n v =
let
val (len, arr) = !dynarr
in
if n >= len then
raise Subscript
else
Array.update (arr, n, SOME v)
end
fun reset dynarr =
let
val (_, arr) = !dynarr
in
dynarr := (0, arr)
end
fun toVec dynarr =
let
val (len, arr) = !dynarr
fun arr2list idx acc =
if idx = len then
rev acc
else
arr2list (idx + 1) (valOf (Array.sub (arr, idx)) :: acc)
val l = arr2list 0 []
in
Vector.fromList l
end
fun appi f dynarr =
let
val (len, arr) = !dynarr
fun loop idx =
if idx = len then
()
else
f (idx, valOf $ Array.sub (arr, idx))
in
loop 0
end
end
|
