list.fs

open System

type Car = {size: int; name: string}
type Cars = Car list

let bigCar cars = 
    let zeroCar = {Car.name = ""; Car.size = 0}
    List.fold (fun car acc -> 
        if car.size > acc.size then car
        elif car.size < acc.size then acc
        else acc) zeroCar cars

[<EntryPoint>]
let main argv = 
    let cars = [
        {name = "Volvo"; size = 10}
        {size = 30; name ="Volks"}
        {size = 25; name = "Ford"}
    ]

    let theBigCar = bigCar cars
    printfn "The biggest car ever is: %A Car size: %A" theBigCar.name theBigCar.size
    Console.ReadLine()
    
    0 // return an integer exit code