[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / GHC_ONLY / cg024 / Main.hs
1 --!!! test super-dictionary grabification
2 --
3
4 main = putStr (show (is_one (1.2::Double)))
5
6 is_one :: RealFloat a => a -> Bool
7
8 is_one x = x == 1.0