| | | 1 | | using System.Collections.Generic; |
| | | 2 | | using System.Linq; |
| | | 3 | | using LanguageExt; |
| | | 4 | | using static FpMineSweeper.Prelude; |
| | | 5 | | |
| | | 6 | | namespace FpMineSweeper |
| | | 7 | | { |
| | | 8 | | public record MineField(int Width, int Height, IEnumerable<Cell> Cells) |
| | | 9 | | { |
| | | 10 | | protected IEnumerable<(int X, int Y)> NearCellGenerator((int X, int Y) pos) |
| | | 11 | | { |
| | | 12 | | IEnumerable<(int X, int Y)> NearCellsInner() |
| | | 13 | | { |
| | | 14 | | yield return (pos.X - 1, pos.Y - 1); |
| | | 15 | | yield return (pos.X, pos.Y - 1); |
| | | 16 | | yield return (pos.X + 1, pos.Y - 1); |
| | | 17 | | yield return (pos.X - 1, pos.Y); |
| | | 18 | | yield return (pos.X + 1, pos.Y); |
| | | 19 | | yield return (pos.X - 1, pos.Y + 1); |
| | | 20 | | yield return (pos.X, pos.Y + 1); |
| | | 21 | | yield return (pos.X + 1, pos.Y + 1); |
| | | 22 | | } |
| | | 23 | | |
| | | 24 | | bool CheckBoundary((int X, int Y) pos) => pos switch |
| | | 25 | | { |
| | | 26 | | (var x, var y) when x < 0 || y < 0 || x >= Width || y >= Height => false, |
| | | 27 | | _ => true |
| | | 28 | | }; |
| | | 29 | | |
| | | 30 | | return NearCellsInner().Where(CheckBoundary); |
| | | 31 | | } |
| | | 32 | | } |
| | | 33 | | |
| | | 34 | | public record MineFieldInit : MineField |
| | | 35 | | { |
| | | 36 | | public MineFieldInit(int width, int height) |
| | 3 | 37 | | : base(width, height, Enumerable.Empty<Cell>()) |
| | 3 | 38 | | { |
| | 3 | 39 | | } |
| | | 40 | | |
| | | 41 | | public MineFieldReady SetBombs(IEnumerable<(int X, int Y)> bombPosGenerator) => |
| | 2 | 42 | | new(this with |
| | 2 | 43 | | { |
| | 2 | 44 | | Cells = from y in Enumerable.Range(0, Height) |
| | 8 | 45 | | from x in Enumerable.Range(0, Width) |
| | 20 | 46 | | select (x, y) into pos |
| | 20 | 47 | | join bombPos in from bombPosInner in bombPosGenerator |
| | 26 | 48 | | select new { Pos = bombPosInner } |
| | 44 | 49 | | on pos equals bombPos.Pos into bombPosGroup |
| | 38 | 50 | | from bombPosGroupItem in bombPosGroup.DefaultIfEmpty(null) |
| | 20 | 51 | | join nearBombCount in from bombPosInner in bombPosGenerator |
| | 54 | 52 | | from nearBombPos in NearCellGenerator(bombPosInner) |
| | 76 | 53 | | group nearBombPos by nearBombPos into nearBombPosGroup |
| | 38 | 54 | | select new |
| | 38 | 55 | | { |
| | 38 | 56 | | Pos = nearBombPosGroup.Key, |
| | 38 | 57 | | Count = nearBombPosGroup.Count() |
| | 38 | 58 | | } |
| | 56 | 59 | | on pos equals nearBombCount.Pos into nearBombCountGroup |
| | 20 | 60 | | from nearBombCountGroupItem in nearBombCountGroup.DefaultIfEmpty() |
| | 20 | 61 | | select cell(pos, |
| | 20 | 62 | | bombPosGroupItem is not null, |
| | 20 | 63 | | nearBombCountGroupItem.Count) |
| | 2 | 64 | | }); |
| | | 65 | | } |
| | | 66 | | |
| | | 67 | | public record MineFieldReady : MineField |
| | | 68 | | { |
| | | 69 | | public MineFieldReady(MineFieldInit mineFieldInit) : |
| | | 70 | | base(mineFieldInit.Width, mineFieldInit.Height, mineFieldInit.Cells) |
| | | 71 | | { |
| | | 72 | | } |
| | | 73 | | } |
| | | 74 | | } |