diff options
author | Tomasz Chojnacki <tomaszchojnacki2001@gmail.com> | 2022-12-13 16:38:41 +0100 |
---|---|---|
committer | Tomasz Chojnacki <tomaszchojnacki2001@gmail.com> | 2022-12-13 16:38:41 +0100 |
commit | 6fc820cd0cb61a4bacda5f5b40c98dda850d75da (patch) | |
tree | 7d08b0adbf8c1b60be906cab3ee7b76767b6908e /aoc-2022-dotnet/Common/Util.fs | |
parent | eb7cdaab9b9c13b3594e0abdbbff6f72f8cb4807 (diff) | |
download | gleam_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.fs | 18 |
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 = |