C4L_GetMove_1.fsx

// GameState -> String
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)
    
    // more to come
    ""