class Visible a where
toString :: a -> String
size :: a -> Int
intToString :: (Integral t) => t -> String
intToString 0 = "0"
intToString 1 = "1"
intToString 2 = "2"
intToString 3 = "3"
intToString 4 = "4"
intToString 5 = "5"
intToString 6 = "6"
intToString 7 = "7"
intToString 8 = "8"
intToString 9 = "9"
intToString n
| ((div n 10) == 0) = (intToString (mod n 10))
| otherwise = (intToString (div n 10)) ++ (intToString (mod n 10))
instance Visible Int where
toString = intToString
size n = length (toString n)
給我約一個模糊的類型變量的錯誤在提示符下,如果我輸入類似(的toString 55)
但
instance Visible Integer where
toString = intToString
size n = length (toString n)
沒有。
什麼給?
僅供參考,這裏是你的intToString的另一種定義:'intToString = show' – luqui 2010-07-25 16:05:19