khigia / ocaml-anneal
watch download tarball
public
Forks0Right
Watchers3Right
Description: Simulated annealing implementation in OCaml
Homepage:
Clone URL: git://github.com/khigia/ocaml-anneal.git
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