Solve 5ee8ba31b44cc30032cbce04

tbsklg · Jun 16, 2024 · 2bd3336 · 2bd3336
1 parent ad7d291
commit 2bd3336
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Kyu7/Repeated.hs b/src/Kyu7/Repeated.hs
@@ -3,4 +3,4 @@ module Kyu7.Repeated (isConsecutive) where
 import Data.List (group, nub)
 
 isConsecutive :: String -> Bool
-isConsecutive xs = nub xs == map head (group xs)
+isConsecutive xs = map head (group xs) == nub xs