blob: 75628f457eebde4a5966a2382d43a3e4d1fa95ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
open import Pervasives
type bit = B0 | B1 | BU
type vector = Vector of list bit * nat
let read_vector_subrange is_inc (Vector bs start) n m =
let (length,offset) = if is_inc then (m-n+1,n-start) else (n-m+1,start-n) in
let (_,suffix) = List.splitAt offset bs in
let (subvector,_) = List.splitAt length suffix in
Vector subvector n
let write_vector_subrange is_inc (Vector bs start) n m (Vector bs' _) =
let (length,offset) = if is_inc then (m-n+1,n-start) else (n-m+1,start-n) in
let (prefix,_) = List.splitAt offset bs in
let (_,suffix) = List.splitAt (offset + length) bs in
Vector (prefix ++ (List.take length bs') ++ suffix) start
let hd (x :: xs) = x
|
