diff options
Diffstat (limited to 'samples/aoc/2016/01/solve.bruijn')
| -rw-r--r-- | samples/aoc/2016/01/solve.bruijn | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/samples/aoc/2016/01/solve.bruijn b/samples/aoc/2016/01/solve.bruijn index efdaaaa..e48c5ec 100644 --- a/samples/aoc/2016/01/solve.bruijn +++ b/samples/aoc/2016/01/solve.bruijn @@ -15,17 +15,17 @@ direction! [^0 : (S.string→number ~0)] ⧗ (List Char) → Direction # rotation : (x : y) start ((+0) : ((+0) : (+0))) ⧗ State -move [[go ((C.eq? ^0 'R' ++‣ --‣) ^1)]] ⧗ State → Direction → State +move [[go (C.eq? ^0 'R' ++‣ --‣ ^1)]] ⧗ State → Direction → State go [0 : (even? 0 y x)] - x (^(~2) + (p ~1)) : ~(~2) - p ((0 % (+4)) =? (+3)) -‣ [0] + x ^(~2) + (p ~1) : ~(~2) + p 0 % (+4) =? (+3) -‣ [0] y ^(~2) : (~(~2) + (p ~1)) - p ((0 % (+4)) =? (+2)) -‣ [0] + p 0 % (+4) =? (+2) -‣ [0] :test (move start (direction! "R42")) ((+1) : ((+42) : (+0))) part1 (P.uncurry …+…) ∘ ~‣ ∘ (foldl move start) ⧗ (List Direction) → State main [parts coords] - coords direction! <$> (split-list-by [C.eq? 0 ','] (init 0)) - parts [(part1 0)] + coords direction! <$> (split-list-by (C.eq? ',') (init 0)) + parts [part1 0] |