sw.Start()
let res = f ()
sw.Stop()
- log <| sprintf "%A (time: %A ms)" m sw.ElapsedMilliseconds
+ log <| sprintf "%s (time: %d ms)" m sw.ElapsedMilliseconds
res
let inline lineFromTwoPoints (p1: PointD) (p2: PointD) : Line =
let inline squaredDistanceTwoPoints (p1: PointD) (p2: PointD) =
(p1.X - p2.X) ** 2.f + (p1.Y - p2.Y) ** 2.f
-let distanceTwoPoints (p1: PointD) (p2: PointD) =
+let inline distanceTwoPoints (p1: PointD) (p2: PointD) =
squaredDistanceTwoPoints p1 p2 |> sqrt
let countCells (cells: Cell list) : int * int =