fork download 
  1. (* your code goes here *)
  2.  
  3. let p = 42. /. 0.;;
  4.  
  5. print_string "p = ";;
  6. print_float p;;
  7. print_newline ();;
  8.  
  9. if p = infinity then
  10. 	print_string "Yes!\n"
  11. else
  12. 	print_string "NO!\n";;
  13.  
  14. if p != infinity then
  15. 	print_string "Yes!\n"
  16. else
  17. 	print_string "NO!\n";;
  18.  
  19. (* Some idea *)
  20.  
  21. if not (p != infinity) then
  22. 	print_string "Yes!\n"
  23. else
  24. 	print_string "NO!\n";;
  25.  
  26. (* Other idea *)
  27.  
  28. if p < infinity then
  29. 	print_string "Yes!\n"
  30. else
  31. 	print_string "NO!\n";;
  32.  
  33. if p > infinity then
  34. 	print_string "Yes!\n"
  35. else
  36. 	print_string "NO!\n";;
  37.  
  38. (* Same idea *)
  39.  
  40. if p <= infinity then
  41. 	print_string "Yes!\n"
  42. else
  43. 	print_string "NO!\n";;
  44.  
  45. if p >= infinity then
  46. 	print_string "Yes!\n"
  47. else
  48. 	print_string "NO!\n";;
Success #stdin #stdout 0s 4168KB
comments (?)
stdin 
Standard input is empty
stdout 
p = inf
Yes!
Yes!
NO!
NO!
NO!
Yes!
Yes!
https://ideone.com/nK9mHa
language:
OCaml (ocamlopt 4.05.0)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!