day09: remove f
the wisdom of Karl has spoken
This commit is contained in:
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