@@ -47,6 +47,17 @@ let to_list seq = in _to_list seq [] +let of_array a = + let rec _of_array a pos = + let l = Array.length a in + if pos < l + then + Cons(lazy a.(pos), lazy (_of_array a (pos + 1))) + else + Nil + in + _of_array a 0 + (* Manipulation *) seq.ml @@ -50,6 +50,14 @@ let _ = Tests.register "Transformers: of_list, to_list" (fun () -> OUnit.assert_equal l (Seq.to_list s) ) +let _ = Tests.register "Transformers: of_array" (fun () -> + let l = [1;2;3;] in + let a = Array.of_list l in + let s = Seq.of_array a in + _cmp_to_list_end s l; + OUnit.assert_equal l (Seq.to_list s) +) + let _ = Tests.register "push_front" (fun () -> let s = Seq.of_serie ((+) 1) 1 in let s = Seq.push_front 0 s in test/seqTest.ml b6694fa23d81626079c0de2e2fa30a4147248582 Ludovic Coquelle lcoquelle@gmail.com http://github.com/khigia/ocaml-anneal/commit/72a5930860dacb415e2ffa1f3fffe8a326c4d26c 72a5930860dacb415e2ffa1f3fffe8a326c4d26c 2008-06-19T18:05:28-07:00 2008-06-19T18:05:28-07:00 Added of_array function to Seq module. 3f59767659990458177dba0d01297173539bafc5 Ludovic Coquelle lcoquelle@gmail.com