parent
946d42ee8a
commit
c970abf345
|
@ -13,7 +13,5 @@ day09 =
|
||||||
(sum *** sum) .
|
(sum *** sum) .
|
||||||
unzip .
|
unzip .
|
||||||
map
|
map
|
||||||
((f (+) last &&& f (-) head) .
|
((sum . map last &&& foldr1 (-) . map head) .
|
||||||
takeWhile (not . null) . iterate (zipWith (-) =<< tail))
|
takeWhile (not . null) . iterate (zipWith (-) =<< tail))
|
||||||
where
|
|
||||||
f f1 f2 = foldr1 f1 . map f2
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user