data Area = Circle Float Float Float surface :: Area -> Float surface (Circle _ _ r) = pi * r ^ 2 main = print (surface $ Circle 10 20 10 )
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more