Default F# Code

C4L_default.fsx

(* Bring data on patient samples from the diagnosis machine to the laboratory with enough molecules
to produce medicine! *)
open System

let projectCount = int(Console.In.ReadLine())
for i in 0 .. projectCount - 1 do
    let token = (Console.In.ReadLine()).Split [|' '|]
    let a = int(token.[0])
    let b = int(token.[1])
    let c = int(token.[2])
    let d = int(token.[3])
    let e = int(token.[4])
    ()


(* game loop *)
while true do
    for i in 0 .. 2 - 1 do
        let token1 = (Console.In.ReadLine()).Split [|' '|]
        let target = token1.[0]
        let eta = int(token1.[1])
        let score = int(token1.[2])
        let storageA = int(token1.[3])
        let storageB = int(token1.[4])
        let storageC = int(token1.[5])
        let storageD = int(token1.[6])
        let storageE = int(token1.[7])
        let expertiseA = int(token1.[8])
        let expertiseB = int(token1.[9])
        let expertiseC = int(token1.[10])
        let expertiseD = int(token1.[11])
        let expertiseE = int(token1.[12])
        ()

    let token2 = (Console.In.ReadLine()).Split [|' '|]
    let availableA = int(token2.[0])
    let availableB = int(token2.[1])
    let availableC = int(token2.[2])
    let availableD = int(token2.[3])
    let availableE = int(token2.[4])
    let sampleCount = int(Console.In.ReadLine())
    for i in 0 .. sampleCount - 1 do
        let token3 = (Console.In.ReadLine()).Split [|' '|]
        let sampleId = int(token3.[0])
        let carriedBy = int(token3.[1])
        let rank = int(token3.[2])
        let expertiseGain = token3.[3]
        let health = int(token3.[4])
        let costA = int(token3.[5])
        let costB = int(token3.[6])
        let costC = int(token3.[7])
        let costD = int(token3.[8])
        let costE = int(token3.[9])
        ()

    
    (* Write an action using printfn *)
    (* To debug: eprintfn "Debug message" *)
    
    printfn "GOTO DIAGNOSIS" 
    ()