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
|
(* This example was mostly lifted from the guile example directory *)
open Swig
open Example
let with_vector v f =
for i = 0 to ((v -> size()) as int) - 1 do
f v i
done
let print_DoubleVector v =
begin
with_vector v
(fun v i ->
print_float ((v '[i to int]) as float) ;
print_string " ") ;
print_endline
end
(* Call average with a Ocaml array... *)
let v = new_DoubleVector '()
let rec fill_dv v x =
if x < 0.0001 then v else
begin
v -> push_back ((x to float)) ;
fill_dv v (x *. x)
end
let _ = fill_dv v 0.999
let _ = print_DoubleVector v ; print_endline ""
let u = new_IntVector '()
let _ = for i = 1 to 4 do
u -> push_back ((i to int))
done
let _ = (print_float ((_average u) as float) ; print_newline ())
|