Complete day3 for F#!
Created by krixano on December 3, 2020
PKDWHQ7LCBXYWTNXEQUTKE65KLRXZ7GW3PWIK3A65S4F27RH2TGQC Dependencies
In channels
main
Change contents
File addition: day3
[3.230427]File addition: main.fs
[0.7]open System.IOlet readLines (filePath: string) = seq {use sr = new StreamReader (filePath)while not sr.EndOfStream doyield sr.ReadLine()}type Pos = { x: int; y: int }type Slope = { x: int; y: int }type Tile =| Open| Treetype Map = { tiles: Tile list list }let createMap (lines: string seq): Map ={ Map.tiles = [for line in lines do[ for char in line doif char = '#' thenTile.Treeelse Tile.Open ]] }let getMaxPos (map: Map): Pos ={ Pos.x = map.tiles.[0].Length - 1; y = map.tiles.Length - 1 }let advancePos (pos: Pos) (slope: Slope) (maxPos: Pos): (bool * Pos) =if (pos.y + slope.y > maxPos.y) then(true, pos)elseif pos.x + slope.x > maxPos.x then(false, { Pos.x = ((pos.x + slope.x) % maxPos.x) - 1; y = pos.y + slope.y })else(false, { Pos.x = pos.x + slope.x; y = pos.y + slope.y })let rec checkSlope (map: Map) (pos: Pos) (slope: Slope) (maxPos: Pos) (count: int64): int64 =match advancePos pos slope maxPos with| (true, { Pos.x = x; Pos.y = y }) -> count| (false, { Pos.x = x; Pos.y = y }) ->if map.tiles.[y].[x] = Tile.Tree thencheckSlope map { Pos.x = x; Pos.y = y } slope maxPos (count + 1L)else checkSlope map { Pos.x = x; Pos.y = y } slope maxPos (count)[<EntryPoint>]let main argv =let lines = readLines "input.txt"let map = createMap lineslet maxPos = getMaxPos maplet count1 = checkSlope map { Pos.x = 0; y = 0 } { Slope.x = 1; y = 1 } maxPos 0Llet count2 = checkSlope map { Pos.x = 0; y = 0 } { Slope.x = 3; y = 1 } maxPos 0Llet count3 = checkSlope map { Pos.x = 0; y = 0 } { Slope.x = 5; y = 1 } maxPos 0Llet count4 = checkSlope map { Pos.x = 0; y = 0 } { Slope.x = 7; y = 1 } maxPos 0Llet count5 = checkSlope map { Pos.x = 0; y = 0 } { Slope.x = 1; y = 2 } maxPos 0Llet part1 = count2let part2 = count1 * count2 * count3 * count4 * count5printf "%d, %d\n" part1 part20File addition: input.txt
[0.7].#.#....##.......#..........#.....#...........##...#..#.......#.####......##.#...#......#.#..##.....#.#.#..#.#............#.##.....#....#.........#...##...###..#.....#....#........................#..#.#..#.#....#.....##.....#....#.#...#.##.........#...#......#....##....#..#.#....##.##...#....##..#.#.....#...#.....#.#..........##.#........#.##..................#..#..##.##.#..........##....#.####.......#......#.#......#.........#...#....#..##.##..##........#.#...##..#.##..#...#..####.#..#.....###....#.###.##...........##..#.....#.##.....##.#..#####....##....#.###....#..##....##...#.....###.#...##.....#.##..#..#.#..#...#..#..#.........#..#.......##..#.#.....#.#.#.......#...#.#...#...##.#........#...#.........#..#.#..#...#...#...........#........#.....#......#...##....#........##.##.#.#...#...#.....####.......#.##.###.#....#........#...........#...#......#...###...#...#............#.......#....#...........##.......#.....###......#.....#....#...#.#...#.....##..........#.......#.#...##.##.##...#......#....#.......##..#.#..#......#...#..#...........#....##.##............####...#.###..#.##.###..#.##.......##.##..#.#.....#..#.....##........##..#.....##.#.##........#....#..#.#......#..#............#......#..#.#...#....#.##.#.......#...##.#..#.#...##...##..##...###............#.#..#..#...#.....#..##.####.#.....#.....##.####....#.##..##....#..#...#.##.#......#.##.........##...##...............####.#....#.#......#.#.........#.#..#...#.#..#.#....#.#.....#..##.##..##....#.................##......#.##.###....#.##...###..##.#...#........##................#.#....#.#.###.##..##.##.......#.#......##...#...#.....#..##..#.###...#..#.##.##.....#.#..#...#........#...#...#......#....#.#.....###...#..#..##.#....#..##......#.....#.....#.#.##..#.....#.####..###.............#......#..#.............#........#.##.#.....##.##..#........#.........#....#...#.#...##.....#.#....#.#.......#...............#.##........##...##..###..###.#.#..#..#####.##.#.##...##..##.#.#...#..#.#.#......#.#..#..#..#..##..#.....#......#...#....#.##..#......##...........#.##......#...##.#......#...........#..#.##.#.....#................#.#.#.###...##......#........#.#..........#..#...#.........##..........#..........##....#......#.....#.##.#..#...#.#.....#.....#..#...#..#.#.##..###.####....#........#...#...........##.#.##.#..#...##...#.##........#...#...#.#.#.#...#..#..........#...#.#.....#.#........##...#.#.......###.#.....##.............#.........##....#....#..#.............##.....##..................##...##.......#.....#.##.........#..........#.###..##...#.....#......#....#..##.....##..#...#...##.#.....#.#......#..#...##.#.......#.#......#.##.......#.......#.#...........#............#.....##............##........#...#..#.......###.##..##...........#.#........#.#.#....#..##...#.#....#####.#...........##...###...#..#.##...####....#....#.....#..#.......#.....#....#....#...#..#..#.######..##.###...........#......#...#..#.#.#.#.#..#....#....#...##.#....#..#.........#.#....###...#.........#..##.##..........#....##.....#......##....##.....#...#..#...#.#.#....##....#..#....#.#..................#..###.#..##...#.........#......#....#..###.#.#.....#..#..#....###..###......##..##.#..##........##...##..##..#........##..###..#.....#.#..#..###..#......#....#...#...##..#.#..............##.#..#.#.......####....#...####.....#.#.......#....##.#......###........##.##...#.#.#.#.......#....##...#......#...#.#....#..##.#.##.##.#.##.#.#......#..##........##...##.....#.....#...#..###...#.........###.....#.....#...##..#.....#.##.##......#.#....#...#..#....##.......#..#.####........#..#....#..........#......#.#..#.##.##.....###.#.#....................#......#..##..............#...##.#.#.#..#.#.........#..#.....#.##...#..#..#.###....#...#.##......#.....##....#.....###............#.#....#...#...........#.....#..#.#.#....#..#.#...#......#.#..##..#....#...#.#............##........##..##.....#..#.##..#......###..#...............#.........#..............#...#.#########.#...##..###..#....#......#.......#.#.....#..#.#..#....###.###....#...#.#...#...###.#.#.......#.##......#...................#...#.#.#.....##....#...#........#....#.#..#.......#.....#...#..........#.#.##..........#...#..........#.##..#.#.##.#....#.#......#...##.......#.......#..#.....#........#.##.#..##..#.......##.............#......#..#..#.#...#..........#....#................###....##.....#.#....#.#..........##....#..#....#.##.##......#........#.#....#.......#.#..##...........#.....#..........##.#.######.....................##..#..#..###..#.##.......##.#...#..#......###.......#..#...#......#..##..#...#.#..#.#..#..#.##.......#...##.......#..#..#.##..###.........#....#.#.#........#.##..#..##..#....#....#..#.#..#........##.#...#.#######..#...#.....#..#....#..#.........#..##.........#....#.#......#..#..#.#.....#..#....#........#.#..##....####....#..##......##.##.....#.###...#.#..........#..#.#.#.#.##........##..#.#..#.#....#....#...##....#....#..#..#.##......#.......#.#..##.#.#...###....##.#.....#.......##..#.......#...#.........##.......#..##.....#...#....#.#...#...........#...#......#....#...#......##.##..###..#..#..........#...#...#...##.##.......###..#.....#..##....#.####..#.###..#..##..##.....#.#..................#.###...##.#.....#....###.......###.#.....#..#.#.........##.#.........#.....###......###.#..#.....#...#..#......#....#..##.#..#.#....#.......#........#......#.#..#.#..#...##...#.##.##......#...............#.....##.#.....#..#......##...#..#..#.....#.....#.....###.....##...........#..#.##.....#......#.#......#.#...#.##.#..#...##...#..........#.....#..........#.#.#.#.#...#....#...#.....##..#......##...#...#..........#.#.....##........#.#..............#..#.#.#..#........##......#.##........####...##.#.....#..........#........#.#..#..##..#.#....#.....#..###...#..#.....#..#..#......###.#..#....#..#.#..........#.....##.##..#...#.#..##.#...##..#...#.#......#....#...#.##..##...##..#...###...#..#............#.....#...........##....#..##....#........#....##..#.#..#........#..##...###.#..#......#.#....#..##...#...##.#..###..#.........#.......#.....#.#....#..#.....#.#.###.#..#......#.......#..#.#....#..##..###....######.##.#.#..#...........#.#.#....##.#.......#......#..##....#......#.#.#.......##.......#...#...........#.##....##.##....#.#...#.......#..#.##..#......#..##.#.#...#......##.#...........###........#...........###.#..#...........#.#.#....#.#..##.#.#....#.#.#....#..........#..#....#.#....###.#.#..#.......###...#.#....#......#.#.#..#..#.............##.............#....#.#.#.#..........#.........#.##.....##....#....##....#..#.......#..#.##.##.#..#..#.....#..#.##.#...#..#.......##..#.....##.##...........#..........#.#.##..#.##.....#.....#.#...##....##..............#.........#...##....##.##.....#......#..........#...#.....#.#.......#.#..#....###..#.......#.#.#.........#............#..###.#.#........#.#..................#..#......##...##....#...###..#.....##.....#.###....#.##...#...#........###.#..#.....##........#..#.###.######.##.###.#...#.#....#..##.#....##...........##.....##.#..###.#........##...##........#.......#....##..##...#.####...###......#...#.##.....#.##.#.#.....###.#..##...###....#.#.###.#....#............#..###..#...#....#..#..#.#.#.#.##....##...##.......#...............#...#....#..#......................#...#..##.#..........#.##.......#...#.#..##.##....####.#.##..#.#......#.##...#.#.#..#.#.....#.................#..#.##..###....#...#......####...##..##...........#....#...#......#...#...#...#.......#....#.#.#...###...#...#.#...#....##.#......#...#.#.......#.....#...#....##...#.#.#....#....#.#....#.....#.....#...##..#...#....##.#.....#....#......##.##....#......#.#....#...#....#.#....##..#...#.#..#...##....###..#..........##......###...###.#...#..#..##.......#.......###.......#..#..##.##..###.#............#...##.....##..#..##....##..#.............#.#...#......#.....#.....#...........#....#..##.##.#...........#..#......#...#....#...#.#...##...........#......#...#.#........#....##...###.#....#.......#.......##.........#.##....#.###..#....#..##.#..#.#..#...#.......#.##.#.#....#.#..#....####.....#.#.......#..#......#.##..#.#.......#.#..##..##.#.#...#..#.#.#.###........#.....#...##.#.#..#..##.....#...........#...#.#..#.....#...#...#...##.......#.##......#...##.#...#.#.#.##..#.#.#.#.......####............#......#.#......##.###.....##..#...##..#.........##....#.##.##.##.##.#.#.....#..........##..#.....###.#..#....#..#.###...##...##.......###....#.#..#.......#....##.........##.........##......#....#.##.......#..........#.#.#..#...#...#...##.#...#........#..##.#.#.#...##...#.#.###..#...##.#.....#...#.##.........#..#.........##.#...#.##...####.##.#....#.......#.##..#..........##...##.##...##.........###......#...#.......#...#...#......##...........#...#..#........#.##.#..#........#....#.......#.#...#..#......##...#.#.##....##........####..#.#...#.#.##.###..#.#.##......##.#.#..#............#.........#..#.####....#........##..#....#...#.#....#....#...##........#.........#.....#.#.#...#.#.#..#............##.#.#..#....#....#.....#...#.....#..###...#..#.....#.##.###...#.#.#.###..#..#...#.#...#.#......##...#####......###........##........#.....#..#.#....#..##.........##...#.#.##.#####...#....#..#.#.........##.#.......#..##...#...#.#...#...#....#.#...##.#..##...#..#.#..#......#.#.#..##...#.....#..#.....##.....#........#........#..##...#.......###..#....#.......#....#....#..#.......#......#.#.#.........#.......##...#.#.#...#.#........#.....#.....####...##.#..#...##........#.....#...#...#....#....#............#..#.#.....#..#.#..#...........##...........#.......#......#..#.....##...#.##.#......#......##........##...#.#.##.......#.#..##...........#..#..#....#.......#...#.#..#.##..#.##....#.......#.....#.#...#.##.#..#.....#.............##.#..####..#...#......#...##.#....#.#.....##..##.##....#.#.....#.......#...#...#....#....##.#..#....##...............##....#.......#.#.#.#.#...##..#..#...###.#..#....#.#...#.#..#.#..#...######..#.........#......#.#..#.#....#.....###.....###.#.##....#...##....##.#.....#.......##.......#.....#..##...#..........#.#....#.#File addition: day3.fsproj
[0.7]<Project Sdk="Microsoft.NET.Sdk"><PropertyGroup><OutputType>Exe</OutputType><TargetFramework>net5.0</TargetFramework></PropertyGroup><ItemGroup><Compile Include="main.fs" /></ItemGroup></Project>Replacement in 2020/fsharp/day1/Program.fs at line 5 [3.230691]
Replacement in 2020/fsharp/day1/Program.fs at line 12 [3.230691]
let part1 (arr: int list) = query {for a in arr dofor b in arr dofind (a + b = 2020)}let part2 (arr: int list) = query {for a in arr dolet part1 (arr: int list) = query {for a in arr dofor b in arr dofind (a + b = 2020)}let part2 (arr: int list) = query {for a in arr doReplacement in 2020/fsharp/day1/Program.fs at line 21 [3.230691]
Replacement in 2020/fsharp/day1/Program.fs at line 26 [3.230691]
let v = part1 arr |> tupleToArray2 |> Array.reduce (*)printfn "%d" vlet v2 = part2 arr |> tupleToArray3 |> Array.reduce (*)printfn "%d" v20let v = part1 arr |> tupleToArray2 |> Array.reduce (*)printfn "%d" vlet v2 = part2 arr |> tupleToArray3 |> Array.reduce (*)printfn "%d" v20