From: Ummon Date: Thu, 14 Dec 2017 08:46:19 +0000 (+0100) Subject: Simplify X-Git-Url: https://git.euphorik.ch/?a=commitdiff_plain;h=c7ea6293718f416be59e8de3f1d37a88a2997673;p=advent_of_code_2017.git Simplify --- diff --git a/AdventOfCode2017/Day14.fs b/AdventOfCode2017/Day14.fs index 76bf281..809472f 100644 --- a/AdventOfCode2017/Day14.fs +++ b/AdventOfCode2017/Day14.fs @@ -1,8 +1,6 @@ module AdventOfCode2017.Day14 -open System - -let hash = Day10.knotHash2Encoding (fun i -> Convert.ToString(i, 2).PadLeft(8, '0')) +let hash = Day10.knotHash2Encoding (fun i -> System.Convert.ToString(i, 2).PadLeft(8, '0')) let buildMatrix (input : string) : bool[,] = let mat = Array2D.zeroCreate 128 128 @@ -21,10 +19,7 @@ let nbOfConnectedRegions (input : string) = let rec remove i j = if i >= 0 && i < 128 && j >= 0 && j < 128 && m.[i, j] then m.[i, j] <- false - remove (i + 1) j |> ignore - remove (i - 1) j |> ignore - remove i (j + 1) |> ignore - remove i (j - 1) |> ignore + (remove (i + 1) j, remove (i - 1) j, remove i (j + 1), remove i (j - 1)) |> ignore 1 else 0