hsim/exm/zelus/sincos/main.ml

6 lines
152 B
Standard ML

open Std
let input _ = ()
let output (now, (sin, cos)) = Format.printf "%.10e\t%.10e\t%.10e\n" now sin cos
let () = Runtime.go input Sincosz.g output