vgaltes

let fizzBuzz = 
    function
    | Fizz -> "Fizz"
    | Buzz -> "Buzz"
    | FizzBuzz -> "FizzBuzz"
    | Other n -> n.ToString()

vgaltes

let (|Fizz|Buzz|FizzBuzz|Other|) input =
    match (input % 3, input % 5) with
    | 0,0 -> FizzBuzz
    | 0,_ -> Fizz
    | _,0 -> Buzz
    | _,_ -> Other input

vgaltes

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

vgaltes

let (|>>) result f =
    match result with
    | Success(value) -> f value
    | Failure(error) -> Failure(error)

vgaltes

let withdraw amount currency {Amount = (oldAmount, _)} =
    match oldAmount - amount with
    | newAmount when newAmount < 0 -> Failure("This bank account cannot be overdrawn.")
    | newAmount -> Success {Amount = (oldAmount - amount, USD)}

vgaltes

let deposit amount currency {Amount = (oldAmount, _)} =
    {Amount = (oldAmount + amount, USD)}

vgaltes

type Point = { x : float; y: float; z: float; }

vgaltes

let printValue opt =
    match opt with
    | Some x -> printfn "%A" x
    | None -> printfn "No value."

vgaltes

let myOption1 = Some(10.0)
let myOption2 = Some("string")
let myOption3 = None

vgaltes

type Option<'a> =
    | Some of 'a
    | None