ref: 4243ad0e86ffaa5c214b63c1116d6fea539d4a4a
parent: 2beef750fc1f958b3abb3b61509591b3dfd90455
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Sun Feb 25 14:07:23 EST 2024
Even simpler
--- a/tests/FArith.hs
+++ b/tests/FArith.hs
@@ -17,4 +17,4 @@
putStrLn $ show [ x / y | x <- list1, y <- [1.0::Double, -16.0::Double, 0.0625::Double]]
putStrLn $ show $ readDouble "1.625"
putStrLn $ show $ 1.0 + readDouble "2.5"
- putStrLn $ show $ map readDouble ["1.5e4", "1.25e-5"]
+ putStrLn $ show $ map readDouble ["1.5e4", "125.0e-4"]
--- a/tests/FArith.ref
+++ b/tests/FArith.ref
@@ -3,4 +3,4 @@
[-100.25,6.265625,-1604.0,-53.25,3.328125,-852.0,0.0,-0.0,0.0,1.0,-0.0625,16.0,1.125,-0.0703125,18.0,10000.0,-625.0,160000.0]
1.625
3.5
-[15000.0,1.25e-05]
+[15000.0,0.0125]
--
⑨