[Haskell-cafe] weired

[wenduan]

The following function which converts a number represents a sum of money 
in pence didn't work as expected and the result didn't make any sense to me:

penceToString :: Price -> String
penceToString  p  =
   let  str  =  show p
        len  =  length str
   in
     if len ==1 then "0.0" ++ str else
          if len ==2 then "0." ++ str else (take (len-2) str) ++ "." ++ 
(drop (len - 2) str )

*Main> penceToString 234566666667899999999786
"-6710990.94"

?!?!

-- 
X.W.D