Add Haskell/swekiiz 💛

narze · Oct 3, 2021 · 171e905 · 171e905
1 parent e06e281
commit 171e905
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/Haskell/swekiiz.hs b/Haskell/swekiiz.hs
@@ -0,0 +1,16 @@
+remDups :: (Eq a) => [a] -> [a] -> [a]
+remDups [] _ = []
+remDups (x : xs) l
+  | (x `elem` l) = remDups xs l
+  | otherwise = x : remDups xs (x : l)
+
+removeDuplicates :: (Eq a) => [a] -> [a]
+removeDuplicates list = remDups list []
+
+refd :: String -> String
+refd s =
+  let repl 'f' = 'd'
+      repl x = x
+   in map repl s
+
+main = putStrLn . refd . removeDuplicates $ "Coffee"