#start_haskell サンプルプログラム1

shape.lhs

Shape: データ名
Rectangle: constructor
先頭がおおもじなのは型クラス名です

> data Shape = Rectangle Float Float
>            | Square Float
>            | Circle Float
>            | Triangle Float Float

これについての関数を定義
Rectangle はコンストラクタでのパターンマッチ
l, w は代入

> area :: Shape -> Float
> area (Rectangle l w) = l * w
> area (Square l) = area $ Rectangle l l
> area (Circle r) = r * r * pi
> area (Triangle b h) = b * h / 2

円周をもとめたい

> perimeter :: Shape -> Float
> perimeter (Rectangle l w) = 2*l + 2*w
> perimeter (Square l) = perimeter $ Rectangle l l
> perimeter (Circle r) = 2 * pi * r
> perimeter (Triangle b h) = b + h + (sqrt (b^2+h^2))

let や where をつかうこともできる
let a = x
    b = y
in 計算