open System
 
[<EntryPoint>]
let main argv = 
    let map = 
        Map([1, [3; 5; 7];
             2, [4; 1; 7];
             3, [2; 5; 7];
             4, [3; 1; 6];
             5, [4; 2; 6];
             6, [1; 2; 3];
             7, [4; 5; 6]])
 
    let random = Random();
 
    let mutable continuar = true
    let mutable victorias = 0
    let mutable derrotas = 0
    let mutable empates = 0
 
    while continuar do
        let numeroDelOrdenador = random.Next(1, 7)
 
        printf "Opcciones = 1-Piedra, 2-Papel, 3-Tijera, 4-Spock, 5-Lagarto, 6-Troglodita, 7-Hielo\r\n"
        printf "Teclee la opción con el número correspondiente: "
        match Int32.TryParse(Console.ReadLine()) with
        | (true, n) when n >= 0 && n <= 7 ->
            printf "Ordenador: %i\r\n" numeroDelOrdenador 
 
            if n = numeroDelOrdenador then
                printf "Caramba! Es un empate\r\n"
                empates <- empates + 1
 
            let ``n le gana a x`` n x = map.[n] |> Seq.exists(fun m -> m = x)
 
            if ``n le gana a x`` n numeroDelOrdenador then
                printf "Super! usted gana\r\n"
                victorias <- victorias + 1
 
            if ``n le gana a x`` numeroDelOrdenador n then
                Console.WriteLine("Usted pierde\r\n")
                derrotas <- derrotas + 1
        | (_ , _) -> 
            printf "Por favor ingrese un número válido.\r\n"
 
        printf "\r\n"
        printf "Quiere terminar ahora (S/N)? \r\n"
        continuar <- Console.ReadLine() <> "S"
 
    printf "Victorias: %i\r\n" victorias
    printf "Derrotas: %i\r\n" derrotas
    printf "Empates: %i\r\n" empates
 
    Console.ReadLine() |> ignore
    0

b3BlbiBTeXN0ZW0KCls8RW50cnlQb2ludD5dCmxldCBtYWluIGFyZ3YgPSAKICAgIGxldCBtYXAgPSAKICAgICAgICBNYXAoWzEsIFszOyA1OyA3XTsKICAgICAgICAgICAgIDIsIFs0OyAxOyA3XTsKICAgICAgICAgICAgIDMsIFsyOyA1OyA3XTsKICAgICAgICAgICAgIDQsIFszOyAxOyA2XTsKICAgICAgICAgICAgIDUsIFs0OyAyOyA2XTsKICAgICAgICAgICAgIDYsIFsxOyAyOyAzXTsKICAgICAgICAgICAgIDcsIFs0OyA1OyA2XV0pCiAgICAKICAgIGxldCByYW5kb20gPSBSYW5kb20oKTsKCiAgICBsZXQgbXV0YWJsZSBjb250aW51YXIgPSB0cnVlCiAgICBsZXQgbXV0YWJsZSB2aWN0b3JpYXMgPSAwCiAgICBsZXQgbXV0YWJsZSBkZXJyb3RhcyA9IDAKICAgIGxldCBtdXRhYmxlIGVtcGF0ZXMgPSAwCgogICAgd2hpbGUgY29udGludWFyIGRvCiAgICAgICAgbGV0IG51bWVyb0RlbE9yZGVuYWRvciA9IHJhbmRvbS5OZXh0KDEsIDcpCgogICAgICAgIHByaW50ZiAiT3BjY2lvbmVzID0gMS1QaWVkcmEsIDItUGFwZWwsIDMtVGlqZXJhLCA0LVNwb2NrLCA1LUxhZ2FydG8sIDYtVHJvZ2xvZGl0YSwgNy1IaWVsb1xyXG4iCiAgICAgICAgcHJpbnRmICJUZWNsZWUgbGEgb3BjacOzbiBjb24gZWwgbsO6bWVybyBjb3JyZXNwb25kaWVudGU6ICIKICAgICAgICBtYXRjaCBJbnQzMi5UcnlQYXJzZShDb25zb2xlLlJlYWRMaW5lKCkpIHdpdGgKICAgICAgICB8ICh0cnVlLCBuKSB3aGVuIG4gPj0gMCAmJiBuIDw9IDcgLT4KICAgICAgICAgICAgcHJpbnRmICJPcmRlbmFkb3I6ICVpXHJcbiIgbnVtZXJvRGVsT3JkZW5hZG9yIAoKICAgICAgICAgICAgaWYgbiA9IG51bWVyb0RlbE9yZGVuYWRvciB0aGVuCiAgICAgICAgICAgICAgICBwcmludGYgIkNhcmFtYmEhIEVzIHVuIGVtcGF0ZVxyXG4iCiAgICAgICAgICAgICAgICBlbXBhdGVzIDwtIGVtcGF0ZXMgKyAxCiAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgIGxldCBgYG4gbGUgZ2FuYSBhIHhgYCBuIHggPSBtYXAuW25dIHw+IFNlcS5leGlzdHMoZnVuIG0gLT4gbSA9IHgpCgogICAgICAgICAgICBpZiBgYG4gbGUgZ2FuYSBhIHhgYCBuIG51bWVyb0RlbE9yZGVuYWRvciB0aGVuCiAgICAgICAgICAgICAgICBwcmludGYgIlN1cGVyISB1c3RlZCBnYW5hXHJcbiIKICAgICAgICAgICAgICAgIHZpY3RvcmlhcyA8LSB2aWN0b3JpYXMgKyAxCiAgICAgICAgICAgIAogICAgICAgICAgICBpZiBgYG4gbGUgZ2FuYSBhIHhgYCBudW1lcm9EZWxPcmRlbmFkb3IgbiB0aGVuCiAgICAgICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiVXN0ZWQgcGllcmRlXHJcbiIpCiAgICAgICAgICAgICAgICBkZXJyb3RhcyA8LSBkZXJyb3RhcyArIDEKICAgICAgICB8IChfICwgXykgLT4gCiAgICAgICAgICAgIHByaW50ZiAiUG9yIGZhdm9yIGluZ3Jlc2UgdW4gbsO6bWVybyB2w6FsaWRvLlxyXG4iCgogICAgICAgIHByaW50ZiAiXHJcbiIKICAgICAgICBwcmludGYgIlF1aWVyZSB0ZXJtaW5hciBhaG9yYSAoUy9OKT8gXHJcbiIKICAgICAgICBjb250aW51YXIgPC0gQ29uc29sZS5SZWFkTGluZSgpIDw+ICJTIgogICAgCiAgICBwcmludGYgIlZpY3RvcmlhczogJWlcclxuIiB2aWN0b3JpYXMKICAgIHByaW50ZiAiRGVycm90YXM6ICVpXHJcbiIgZGVycm90YXMKICAgIHByaW50ZiAiRW1wYXRlczogJWlcclxuIiBlbXBhdGVzCgogICAgQ29uc29sZS5SZWFkTGluZSgpIHw+IGlnbm9yZQogICAgMA==

MQpuCjIKbgozCm4KNApuCjUKbgo2Cm4KNwpT

1
n
2
n
3
n
4
n
5
n
6
n
7
S