Another update from ingydotnet^djgoku

Task/Remove-duplicate-elements/Haskell/remove-duplicate-elements-1.hs

@@ -0,0 +1,3 @@
+ print $ unique [4, 5, 4, 2, 3, 3, 4]
+
+[4,5,2,3]

Task/Remove-duplicate-elements/Haskell/remove-duplicate-elements-2.hs

@@ -0,0 +1,4 @@
+import qualified Data.Set as Set
+
+unique :: Ord a => [a] -> [a]
+unique = Set.toList . Set.fromList

Task/Remove-duplicate-elements/Haskell/remove-duplicate-elements-3.hs

@@ -0,0 +1,8 @@
+import Data.Set
+
+unique :: Ord a => [a] -> [a]
+unique = loop empty
+  where
+    loop s []                    = []
+    loop s (x : xs) | member x s = loop s xs
+                    | otherwise  = x : loop (insert x s) xs

Task/Remove-duplicate-elements/Haskell/remove-duplicate-elements-4.hs

@@ -0,0 +1,5 @@
+import Data.List
+
+unique :: Eq a => [a] -> [a]
+unique []       = []
+unique (x : xs) = x : unique (filter (x /=) xs)

Task/Remove-duplicate-elements/Haskell/remove-duplicate-elements-5.hs

@@ -0,0 +1,3 @@
+import Data.List
+Data.List.nub :: Eq a => [a] -> [a]
+Data.List.Unique.unique :: Ord a => [a] -> [a]

Task/Remove-duplicate-elements/Haskell/remove-duplicate-elements.hs

@@ -1,2 +0,0 @@
-values = [1,2,3,2,3,4]
-unique = List.nub values