13 lines
430 B
Haskell
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) ! []
|