type CharacterType =

    | Ninja

    | Pirate

​

type WeaponType =

    | Kitana

    | Bo

    | Sai

    | Nunchucks

    | None

​

type Character = {

    Name : string

    mutable Health : int

    Type : CharacterType

    Weapon : WeaponType

}

​

let Attack (attacker : Character) (attackee : Character) =

    let damage = 

        match attackee.Type with

            | Pirate -> 100

            | Ninja ->

                match attacker.Weapon with

                    | Kitana -> 25

                    | Bo -> 5

                    | Sai -> 10

                    | Nunchucks -> 15

                    | None -> 0

    attackee.Health <- (attackee.Health - damage)

    let isDead health = health <= 0

    match (isDead attackee.Health) with

        | true -> printfn "%s is dead." attackee.Name

        | false -> printfn "%s(%i) has attacked %s(%i) for %i damage." attacker.Name attacker.Health attackee.Name attackee.Health damage

let player1 = { Name = "Jubei Kibagami"; Health = 100; Type = Ninja; Weapon = Kitana }

let player2 = { Name = "Jack Sparrow"; Health = 100; Type = Ninja; Weapon = None }

​

let player1Attack = Attack player1

​

player1Attack player2

player1Attack player2

player1Attack player2

player1Attack player2

​