diff options
| author | Tomasz Chojnacki <tomaszchojnacki2001@gmail.com> | 2022-12-09 19:31:24 +0100 |
|---|---|---|
| committer | Tomasz Chojnacki <tomaszchojnacki2001@gmail.com> | 2022-12-09 19:31:24 +0100 |
| commit | 967e964f453fc031816270b90d6eab38410769a3 (patch) | |
| tree | 99ca5504c1be629eb35cda6514df401965d232fd /aoc-2022-dotnet/Day05/Program.fs | |
| parent | fd04f2ebd1a4ade35a3e218b7737311ac631fce8 (diff) | |
| download | gleam_aoc2020-967e964f453fc031816270b90d6eab38410769a3.tar.gz gleam_aoc2020-967e964f453fc031816270b90d6eab38410769a3.zip | |
Extract common functions to util module
Diffstat (limited to 'aoc-2022-dotnet/Day05/Program.fs')
| -rw-r--r-- | aoc-2022-dotnet/Day05/Program.fs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/aoc-2022-dotnet/Day05/Program.fs b/aoc-2022-dotnet/Day05/Program.fs index f471a31..7bad269 100644 --- a/aoc-2022-dotnet/Day05/Program.fs +++ b/aoc-2022-dotnet/Day05/Program.fs @@ -3,6 +3,7 @@ open System open System.IO open FParsec +open Common type Move = | Move of int * int * int @@ -11,7 +12,7 @@ type Move = let dec n = n - 1 let pPart str = pstring str >>. pint32 let pMove = tuple3 (pPart "move ") (pPart " from " |>> dec) (pPart " to " |>> dec) - Common.parse pMove str |> Move + Util.parse pMove str |> Move static member execute order stacks (Move (n, fi, ti)) = List.mapi @@ -33,7 +34,7 @@ let parseStacks str = let pHeader = many pCrateLine str - |> Common.parse pHeader + |> Util.parse pHeader |> List.transpose |> List.map (List.choose id) |