handle values in command line parsing

1 files changed, 4 insertions, 3 deletions

diff --git a/Program.fs b/Program.fs
index f720b0c..e85d15f 100644
--- a/Program.fs
+++ b/Program.fs
@@ -1,5 +1,5 @@
 open Solutions
-exception NotImplementedYet of string
+exception NotImplemented of string
 
 let args = System.Environment.GetCommandLineArgs()
 
@@ -11,5 +11,6 @@ match (day, part) with
 | (1, 1) -> Day1.part1 () |> printf "%A\n"
 | (1, 2) -> Day1.part2 () |> printf "%A\n"
 | (2, 1) -> Day2.part1 () |> printf "%A\n"
-| (2, 2) -> Day2.part2 () |> printfn "%A\n"
-| _ -> raise (NotImplementedYet("not implemented yet"))
\ No newline at end of file
+| (2, 2) -> Day2.part2 () |> printf "%A\n"
+| (x, y) when (1 <= x && x <= 25) && (y = 1 || y = 2)  -> raise (NotImplemented("not implemented yet"))
+| _ -> raise (NotImplemented("invalid values"))
\ No newline at end of file