練習問題 1.1.3

指定した半径 
r
を持つ円の面積を計算する関数を定義せよ（πの近似値として 
22/7
を使え）． 





pi' :: Float
pi' =  22/7

area :: Float -> Float
area r = pi' * square r

円周率πは型クラス

Floating

のメソッドのひとつ

pi

として定義されている．

square

は練習問題 1.1.1.で定義したものを使う．