aboutsummaryrefslogtreecommitdiff
path: root/aoc-2022-dotnet/Common/Util.fs
diff options
context:
space:
mode:
authorTomasz Chojnacki <tomaszchojnacki2001@gmail.com>2022-12-13 16:38:41 +0100
committerTomasz Chojnacki <tomaszchojnacki2001@gmail.com>2022-12-13 16:38:41 +0100
commit6fc820cd0cb61a4bacda5f5b40c98dda850d75da (patch)
tree7d08b0adbf8c1b60be906cab3ee7b76767b6908e /aoc-2022-dotnet/Common/Util.fs
parenteb7cdaab9b9c13b3594e0abdbbff6f72f8cb4807 (diff)
downloadgleam_aoc2020-6fc820cd0cb61a4bacda5f5b40c98dda850d75da.tar.gz
gleam_aoc2020-6fc820cd0cb61a4bacda5f5b40c98dda850d75da.zip
Upload days 12 and 13
Diffstat (limited to 'aoc-2022-dotnet/Common/Util.fs')
-rw-r--r--aoc-2022-dotnet/Common/Util.fs18
1 files changed, 13 insertions, 5 deletions
diff --git a/aoc-2022-dotnet/Common/Util.fs b/aoc-2022-dotnet/Common/Util.fs
index 34bf8ff..8505f58 100644
--- a/aoc-2022-dotnet/Common/Util.fs
+++ b/aoc-2022-dotnet/Common/Util.fs
@@ -10,7 +10,7 @@ module Util =
| Success (result, _, _) -> result
| _ -> failwith "Invalid input format!"
- let countDistinct seq = seq |> Set |> Set.count
+ let countDistinct xs = xs |> Set |> Set.count
let countWhere pred = Seq.filter pred >> Seq.length
@@ -20,16 +20,24 @@ module Util =
let half = Seq.length xs / 2
[ Seq.take half xs; Seq.skip half xs ]
- let splitStringToTuple sep str =
- match Seq.toList <| String.split [ sep ] str with
+ let splitStringToTuple sep string =
+ match Seq.toList <| String.split [ sep ] string with
| [ x; y ] -> x, y
| _ -> failwith "Invalid string format!"
- let matrixToString m =
- m
+ let matrixToString matrix =
+ matrix
|> Seq.map (Seq.map string >> String.concat "")
|> String.concat "\n"
+ let mapEachToSeq mapping matrix =
+ seq {
+ for row in 0 .. Array2D.length1 matrix - 1 do
+ for col in 0 .. Array2D.length2 matrix - 1 -> mapping matrix (Vec2(col, row)) matrix[row, col]
+ }
+
+ let mAt matrix (Vec2 (col, row)) = Array2D.get matrix row col
+
let composition n f = List.replicate n f |> List.reduce (>>)
let topN n xs =