khigia / ocaml-anneal

Simulated annealing implementation in OCaml

This URL has Read+Write access

ocaml-anneal / tools.ml
100644 14 lines (9 sloc) 0.199 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

let (|>) left right =
    right left
 
module Array = struct
    include Array
 
    let rev a =
        let len = length a in
        let rget a n _ = a.(len - n - 1) in
        mapi (rget a) a
 
end