13 lines
353 B
Plaintext
13 lines
353 B
Plaintext
let f x = sqrt x +. 5.0 *. (x ** 3.0)
|
|
let p x = x < 400.0
|
|
|
|
let () =
|
|
print_endline "Please enter 11 Numbers:";
|
|
let lst = Array.to_list (Array.init 11 (fun _ -> read_float ())) in
|
|
List.iter (fun x ->
|
|
let res = f x in
|
|
if p res
|
|
then Printf.printf "f(%g) = %g\n%!" x res
|
|
else Printf.eprintf "f(%g) :: Overflow\n%!" x
|
|
) (List.rev lst)
|