changed smartReplicate implementation

lucasDS-0 · Nov 9, 2021 · 3222eb4 · 3222eb4
1 parent baf3230
commit 3222eb4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Chapter2.hs b/src/Chapter2.hs
@@ -756,7 +756,7 @@ value of the element itself
 -}
 
 smartReplicate :: [Int] -> [Int]
-smartReplicate = foldr (\x -> (++) $ replicate x x) []
+smartReplicate = concatMap (\x -> replicate x x)
 
 {- |
 =⚔️= Task 9