More concise

diff --git a/AdventOfCode2017/Day8.fs b/AdventOfCode2017/Day8.fs
index 04ec413..fcdda30 100644 (file)
--- a/AdventOfCode2017/Day8.fs
+++ b/AdventOfCode2017/Day8.fs
@@ -21,8 +21,7 @@ let execute (input : Instruction list) : int * int =
                 let regCondValue = register |> Map.tryFind regCond |> Option.defaultValue 0
                 let op' = match op with ">" -> (>) | "<" -> (<) | ">=" -> (>=) | "<=" -> (<=) | "!=" -> (<>) | "==" | _ -> (=)
                 if op' regCondValue valueCond then
-                    let regValue = register |> Map.tryFind reg |> Option.defaultValue 0
-                    let regValue' = match ins with "inc" -> regValue + value | "dec" -> regValue - value | _ -> regValue
+                    let regValue' = (register |> Map.tryFind reg |> Option.defaultValue 0) + match ins with "inc" -> value | "dec" -> -value | _ -> 0
                     max highest regValue', register |> Map.add reg regValue'
                 else
                     highest, register