diff options
Diffstat (limited to 'testsuite/tests/numeric/should_run/arith001.hs')
| -rw-r--r-- | testsuite/tests/numeric/should_run/arith001.hs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/testsuite/tests/numeric/should_run/arith001.hs b/testsuite/tests/numeric/should_run/arith001.hs new file mode 100644 index 0000000000..ed9cd5febc --- /dev/null +++ b/testsuite/tests/numeric/should_run/arith001.hs @@ -0,0 +1,28 @@ +-- !!! conversions: Double <=> Rational/Integer things +-- +import Data.Ratio + +main = putStr (show r42 ++ "\n" ++ + show nu42 ++ ", " ++ + show de42 ++ "\n" ++ + show nu42d ++ ", " ++ + show de42d ++ "\n" ++ + show s2 ++ ", " ++ + show e2 ++ "\n" ++ + show s ++ ", " ++ + show e ++ "\n" ) + where + d42 :: Double + r42 :: Rational + nu42, de42 :: Integer + nu42d, de42d :: Double + + d42 = 42 + r42 = toRational d42 + nu42 = numerator r42 + de42 = denominator r42 + nu42d= fromInteger nu42 + de42d= fromInteger de42 + + (s,e)= decodeFloat (nu42d / de42d ) + (s2,e2) = decodeFloat d42 |