vegowotenks/hc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed -- bug and incorrect display

Browse source
This commit is contained in:
vegowotenks 2024-09-15 18:07:45 +02:00
parent e38576c1d8
commit 6cada53cb0
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -18,8 +18,8 @@ precision = 5 :: Int
showRatio :: Int -> Rational -> String
showRatio p r = (if (r < 0) then "-" else "") ++ prepoint_digits ++ "." ++ postpoint_digits
where
prepoint_digits = init . show . round $ (r * 10)
postpoint_digits = (take p) . (drop (length prepoint_digits)) . show . round $ (r * 10^p)
prepoint_digits = init . show . round . abs $ (r * 10)
postpoint_digits = (take p) . (drop (length prepoint_digits)) . show . round . abs $ (r * 10^p)
useResult (Right e) = (showRatio precision) . evaluate $ replaceVars e vars
useResult (Left e) = show e