Представление данных в виде строки

Question

У меня есть следующий простой код:

data Shape = Circle Float Float Float | Rectangle Float Float Float Float deriving (Show) 
surface :: Shape -> Float 
surface (Circle _ _ r) = pi * r^2 

main = putStrLn $ surface $ Circle 10 20 30 

Он жалуется:

Couldn't match expected type `String' with actual type `Float' 
In the second argument of `($)', namely `surface $ Circle 10 20 30' 

Как избавиться от ошибки? Я также хотел бы добавить «show» к Shape и переопределить его так, чтобы я мог отображать Shape на экране (распечатано), что бы я ни захотел.

Answer 1

Вы должны добавить шоу:

main = putStrLn $ show $ surface $ Circle 10 20 30 

Если вы хотите иметь свой собственный метод Show, не получают Показать:

data Shape = Circle Float Float Float 
      | Rectangle Float Float Float Float 

instance Show Shape where 
    show (Circle _ _ r) = show r 
    show (Rectangle r _ _ _) = show r 

main = putStrLn $ show $ Circle 10 20 30