diff options
| -rw-r--r-- | 2024/01/solve.bruijn | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/2024/01/solve.bruijn b/2024/01/solve.bruijn index 2075668..463593f 100644 --- a/2024/01/solve.bruijn +++ b/2024/01/solve.bruijn @@ -17,7 +17,7 @@ transpose y [[rec]] :test (transpose [0 [0 (+1) [0 (+2) [[0]]]] [0 [0 (+3) [0 (+4) [[0]]]] [[0]]]]) ([0 [0 (+1) [0 (+3) [[0]]]] [0 [0 (+2) [0 (+4) [[0]]]] [[0]]]]) part1 map go - go &[[[0 (S.sort-asc 2) (S.sort-asc S._1)]]] → &[[S.zip-with (N.abs ∘∘ N.sub) 1 0]] → N.sum + go &[[[0 (S.sort-asc 2) (S.sort-asc S._1)]]] → &(S.zip-with (N.abs ∘∘ N.sub)) → N.sum part2 [0] |