Siphalor/adventofcode24
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Day eight: Tuple sections :3

Browse Source
This commit is contained in:
Siphalor
2024-12-08 14:03:08 +01:00
parent 3fe54232b2
commit 6f5e886851
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
day-08-haskell/src/Common.hs
View File

@@ -1,3 +1,4 @@
{-# LANGUAGE TupleSections #-}
module Common where module Common where
import Data.Foldable (toList) import Data.Foldable (toList)
@@ -11,7 +12,7 @@ pairPermutations :: [a] -> [(a, a)]
pairPermutations [] = [] pairPermutations [] = []
pairPermutations [_] = [] pairPermutations [_] = []
pairPermutations [x, y] = pure (x, y) pairPermutations [x, y] = pure (x, y)
pairPermutations (x:xs) = map (\y -> (x, y)) xs ++ pairPermutations xs pairPermutations (x:xs) = map (x,) xs ++ pairPermutations xs
type Position = (Int, Int) type Position = (Int, Int)
type Antenna = (Char, Position) type Antenna = (Char, Position)