Esempio n. 1
0
CAMLprim value caml_hypot_float(value f, value g)
{
  return caml_copy_double(caml_hypot(Double_val(f), Double_val(g)));
}
Esempio n. 2
0
File: floats.c Progetto: MassD/ocaml
CAMLprim value caml_hypot_float_r(CAML_R, value f, value g)
{
  return caml_copy_double_r(ctx, caml_hypot(Double_val(f), Double_val(g)));
}