let x = 1
match x with
| 1 -> printfn "one"
| 2 -> printfn "two"
| _ -> printfn "other"

type Shape =
    | Rectangle of width: float * length: float
    | Circle of radius: float
    | Prism of width: float * float * height: float

let getArea shape =
    match shape with
    | Rectangle(w, l) -> w * l
    | Circle(r) -> System.Math.PI * r * r
    | Prism(w, l, h) -> 2.0 * (w*l + w*h + l*h)

let describe x =
    match x with
    | _ when x < 0 -> "negative"
    | _ when x > 0 -> "positive"
    | _ -> "zero"

let (|Even|Odd|) input =
    if input % 2 = 0 then Even else Odd

let testNumber input =
    match input with
    | Even -> printfn "%d is even" input
    | Odd -> printfn "%d is odd" input

let rec sumList list =
    match list with
    | [] -> 0
    | head :: tail -> head + sumList tail

let rec sumList = function
    | [] -> 0
    | head :: tail -> head + sumList tail