probability-0.2.2: src/Numeric/Probability/Show.hs

module Numeric.Probability.Show where

showL :: Show a => Int -> a -> String
showL n x = s ++ replicate (n-length s) ' '
            where s=show x

showR :: Show a => Int -> a -> String
showR n x = replicate (n-length s) ' ' ++ s
            where s=show x

--showP :: Float -> String
--showP f =  showR 3 (round (f*100))++"%"