Timus Online Judge Samples: 1000. A + B Problems 1001. Reverse Roots

1000.fs

let input = Array.map int (System.Console.ReadLine().Split())
printfn "%d" (int(input.[0]) + int(input.[1]))

1001.fs

let delim = [|' ';'\t';'\n';'\r'|]
let input = System.Console.In.ReadToEnd().Split(delim, StringSplitOptions.RemoveEmptyEntries)
let roots = Array.map double input |> Array.rev |> Array.map sqrt
Array.iter (printfn "%f") roots