2005-04-24 08:51:33 +00:00

13 lines
430 B
Haskell

import Printf
import Control.Exception ( evaluate )
main = do
fn <- evaluate $! printf "%10.4f\n"
fn $> (10.0 :: Double) ! []
fn $> (-10.0 :: Double) ! []
fn $> (10.1010 :: Double) ! []
fn $> (0.0 :: Double) ! []
fn $> (0.987654321 :: Double) ! []
fn $> (987654321 :: Double) ! []
fn $> (-987654321 :: Double) ! []