43 lines
1.0 KiB
Haskell
43 lines
1.0 KiB
Haskell
module ShortShow
|
|
( shortShow
|
|
) where
|
|
import Geometry
|
|
|
|
--import Data.Typeable
|
|
import Numeric
|
|
|
|
class ShortShow a where
|
|
shortShow :: a -> String
|
|
|
|
instance ShortShow a => ShortShow (V2 a) where
|
|
shortShow (V2 x y) = shortShow x ++ "#" ++ shortShow y
|
|
|
|
instance ShortShow Float where
|
|
shortShow x = showFFloat (Just 2) x ""
|
|
|
|
instance ShortShow Int where
|
|
shortShow x
|
|
| x < k = show x
|
|
| x < m = fdiv x k "K"
|
|
| x < g = fdiv x m "M"
|
|
| x < t = fdiv x g "G"
|
|
| x < p = fdiv x t "T"
|
|
| otherwise = show x ++ "P"
|
|
|
|
fdiv :: Int -> Int -> String -> String
|
|
fdiv x y s = removeDot (take 3 (show ((fromIntegral x / fromIntegral y)::Float))) ++ s
|
|
|
|
removeDot :: String -> String
|
|
removeDot [a,b,'.'] = [a,b]
|
|
removeDot xs = xs
|
|
|
|
k,m,g,t,p :: Int
|
|
k = 10 ^ (3 :: Int)
|
|
m = 10 ^ (6 :: Int)
|
|
g = 10 ^ (9 :: Int)
|
|
t = 10 ^ (12:: Int)
|
|
p = 10 ^ (15:: Int)
|
|
|
|
instance (ShortShow a,ShortShow b) => ShortShow (a,b) where
|
|
shortShow (a,b) = '(' : shortShow a ++ "," ++ shortShow b ++ ")"
|