C4L_GetMove.fsx

let getMove (gs : GameState) =
    let me = gs.Robots |> List.find (fun r -> r.Player = Player.Me)
    let mySamples = gs.Samples |> List.filter (fun s -> s.CarriedBy = Player.Me)
    let samplesReady = mySamples |> List.filter (canMakeSample me)
    let cloudSamples = 
        gs.Samples 
        |> List.filter (fun s -> s.CarriedBy = Player.Cloud)
        |> List.sortByDescending (fun s -> s.HealthPoints)
    
    match mySamples.Length, samplesReady.Length, cloudSamples.Length, me.Location with
    | _, sr, _, Module.Laboratory when sr > 0 -> 
        produce samplesReady.Head
    | _, sr, _, _  when sr > 0 -> 
        goto Module.Laboratory

    | ms, _, cs, Module.Diagnosis when ms = 0 && cs > 0 -> 
        collect cloudSamples.Head
    | ms, _, cs, _ when ms = 0 && cs > 0 -> 
        goto Module.Diagnosis

    | _, _, _, Module.Molecules -> 
        gather (getRequiredMolecule me mySamples.Head)
    | _, _, _, _ -> 
        goto Module.Molecules