refactor calling code in main

1 files changed, 10 insertions, 10 deletions

diff --git a/Program.fs b/Program.fs
index de1421b..d79e29e 100644
--- a/Program.fs
+++ b/Program.fs
@@ -8,15 +8,15 @@ assert (Array.length args = 3)
 let day, part = int args[1], int args[2]
 
 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 () |> printf "%A\n"
-| (3, 1) -> Day3.part1 () |> printf "%A\n"
-| (3, 2) -> Day3.part2 () |> printf "%A\n"
-| (4, 1) -> Day4.part1 () |> printf "%A\n"
-| (4, 2) -> Day4.part2 () |> printf "%A\n"
-| (5, 1) -> Day5.part1 () |> printf "%A\n"
-| (5, 2) -> Day5.part2 () |> printf "%A\n"
+| (1, 1) -> printf $"{Day1.part1 ()}\n"
+| (1, 2) -> printf $"{Day2.part2 ()}\n"
+| (2, 1) -> printf $"{Day1.part1 ()}\n"
+| (2, 2) -> printf $"{Day2.part2 ()}\n"
+| (3, 1) -> printf $"{Day3.part1 ()}\n"
+| (3, 2) -> printf $"{Day3.part2 ()}\n"
+| (4, 1) -> printf $"{Day4.part1 ()}\n"
+| (4, 2) -> printf $"{Day4.part2 ()}\n"
+| (5, 1) -> printf $"{Day5.part1 ()}\n"
+| (5, 2) -> printf $"{Day5.part2 ()}\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