Refactor 64c7bbad0a2a00198657013d

tbsklg · Jun 23, 2024 · 8bb7deb · 8bb7deb
1 parent b83c406
commit 8bb7deb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Kyu7/ReverseSublist.hs b/src/Kyu7/ReverseSublist.hs
@@ -3,4 +3,4 @@ module Kyu7.ReverseSublist where
 import Data.List (groupBy, sort)
 
 revSub :: [Integer] -> [Integer]
-revSub xs = groupBy (\x y -> even x && even y) xs >>= reverse
+revSub = (>>= reverse) . groupBy (\x y -> even x && even y)