cleaning

diff --git a/AdventOfCode2017/Day13.fs b/AdventOfCode2017/Day13.fs
index 127d18f..d1b1b2a 100644 (file)
--- a/AdventOfCode2017/Day13.fs
+++ b/AdventOfCode2017/Day13.fs
@@ -11,7 +11,7 @@ let parseInput (lines : string[]) =
     )
 
 let severity (input : (int * int)[]) : int * int =
-    let severity (f : int -> int -> int) delay =
+    let inline sumByF (f : int -> int -> int) delay =
         input |> Array.sumBy (fun (depth, range) -> if (depth + delay) % (2 * range - 2) = 0 then f depth range else 0)
 
-    severity (*) 0, Seq.initInfinite (fun i -> i, severity (+) i) |> Seq.pick (fun (i, s) -> if s = 0 then Some i else None)
\ No newline at end of file
+    sumByF (*) 0, Seq.initInfinite (fun i -> i, sumByF (+) i) |> Seq.pick (fun (i, s) -> if s = 0 then Some i else None)
\ No newline at end of file