fork download
copy 
  1. numberIsInteger number = number == fromInteger(round number)
  2.  
  3. test value = if (numberIsInteger value) then putStrLn "TRUE" else putStrLn "FALSE"
  4.  
  5. main = do 
  6. 	(test 3.7)
  7. 	(test 3.2)
  8. 	(test 3.0)
Success #stdin #stdout 0s 4532KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
FALSE
FALSE
TRUE
https://ideone.com/7HHmDM
language:
Haskell (ghc 8.4.4)
created:
6 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!