/r/dailyprogrammer #138 Improved

open System

type Particle = { mass : float; x : float; y : float }

let getParticles() =
  let vals =
    Console.ReadLine().Split([| ' ' |])
    |> Array.map Double.Parse
  { mass = vals.[0]; x = vals.[1]; y = vals.[2] }

[<EntryPoint>]
let main _ =
  let particles = List.init 2 (fun _ -> getParticles())

  let deltaX = particles.[0].x - particles.[1].x
  let deltaY = particles.[0].y - particles.[1].y
  let distance = sqrt(deltaX ** 2.0 + deltaY ** 2.0)

  let force = (particles.[0].mass * particles.[1].mass) / distance ** 2.0

  printfn "%f" force

  0