Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Day 10: More Golf

This commit is contained in:
shu 2020-12-10 08:22:40 +01:00
parent 44a48767ef
commit edc4c375ef
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
2020/day10/day10.hs
View File

@ -1,4 +1,3 @@
import Control.Arrow
import Control.Monad
import Data.List
@ -16,6 +15,5 @@ arrangements n =
jolts :: [Int] -> [Int]
jolts =
map (uncurry subtract) .
ap zip tail .
uncurry (++) . (id &&& (flip (:) [] . (+ 3) . last)) . (:) 0 . sort
ap (zipWith subtract) tail .
ap (++) (flip (:) [] . (+ 3) . last) . (:) 0 . sort