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