Cleaning

diff --git a/AdventOfCode2017/Day12.fs b/AdventOfCode2017/Day12.fs
index 34c0e46..bc636b7 100644 (file)
--- a/AdventOfCode2017/Day12.fs
+++ b/AdventOfCode2017/Day12.fs
@@ -11,7 +11,6 @@ let parseInput (lines : string[]) : Map<int, Set<int>> =
     ) Map.empty
 
 let graphCount (g : Map<int, Set<int>>) =
-
     let rec visit (current : int) (visited : Set<int>) : Set<int> =
         if visited |> Set.contains current then
             Set.empty
@@ -19,9 +18,6 @@ let graphCount (g : Map<int, Set<int>>) =
             seq { yield g.[current]; for neighbor in g.[current] -> visit neighbor (visited |> Set.add current) } |> Set.unionMany
 
     let rec nbRoots (vertices : Set<int>) =
-        if Set.isEmpty vertices then
-            0
-        else
-            1 + nbRoots (vertices - (visit (vertices |> Set.minElement) Set.empty))
+        if Set.isEmpty vertices then 0 else 1 + nbRoots (vertices - (visit (vertices |> Set.minElement) Set.empty))
 
     visit 0 Set.empty |> Set.count, g |> Map.toList |> List.map fst |> Set.ofList |> nbRoots
\ No newline at end of file