printfn "Ready to battle"

​

let left = [|1;2;3;4;5;6;7;8;9;10|]

let right = [|10;9;8;7;6;5;4;3;2;1|]

​

type winnerType = Left | Right | Tie

​

let determineSkirmishWinner x y =

    if x > y then Left

    else if x < y then Right

    else Tie

​

let skirmishResults = Array.map2 determineSkirmishWinner left right

printfn "Results of each skirmish: %A" skirmishResults

​

let scoreSkirmish index winner =

    if winner = Right then (0, index + 1)

    else if winner = Left then (index + 1, 0)

    else (0,0)

​

let combinedScore = Array.mapi scoreSkirmish skirmishResults

printfn "Combined left & right points: %A" combinedScore

​

let leftTotal = Array.sum(Array.map (fun (x,y) -> x) combinedScore)

printfn "Lefts total is: %i" leftTotal

​

let rightTotal = Array.sum(Array.map (fun (x,y) -> y) combinedScore)

printfn "Rights total is: %i" rightTotal

​

​

let winner x y =

    if x > y then Left

    else if y > x then Right

    else Tie

printfn "And the winner is ...... %A" (winner leftTotal rightTotal)

​

​