は、私がデータ型を持っているリスト

Question

から重複を削除します。ここで

*Main> let a = [Sides 3 4 5,Sides 3 4 5,Sides 5 12 13,Sides 6 8 10,Sides 6 8 10,Sides 8 15 17,Sides 9 12 15,Sides 5 12 13,Sides 9 12 15,Sides 12 16 20,Sides 8 15 17,Sides 15 20 25,Sides 12 16 20,Sides 15 20 25] 
*Main> removeDuplicateFromList [] a 
[Sides 3 4 5,Sides 5 12 13,Sides 6 8 10,Sides 6 8 10,Sides 8 15 17,Sides 9 12 15,Sides 5 12 13,Sides 9 12 15,Sides 12 16 20,Sides 8 15 17,Sides 15 20 25,Sides 12 16 20,Sides 15 20 25] 

は私のソリューションです：より多くのHaskellの-方法でこのコードを記述する他の方法があるかどう

removeElementFromList :: [SidesType] -> SidesType -> [SidesType] 
removeElementFromList lst element = 
         let (Sides a b c) = element 
         in [(Sides x y z) | (Sides x y z) <- lst, (x /= a) || (y /= b)] 

removeDuplicateFromList :: [SidesType] -> [SidesType] -> [SidesType] 
removeDuplicateFromList inlist outlist 
         | (length outlist) == 0 = inlist 
         | otherwise = 
          let element = head outlist 
           b = tail outlist 
           filtered = removeElementFromList b element 
         in removeDuplicateFromList (inlist ++ [element]) filtered 

は、私は疑問に思って？それはO（N^2）

Answer 1

あなたのデータ型にはShowが派生しています。 Eqも派生している場合は、nubをmodule Data.Listから使用できます。

Answer 2

使用Data.List.nub

Answer 3

ですがあなたは既にしている

nubBy :: (a -> a -> Bool) -> [a] -> [a] 

PS：柔軟性を追加機能 "により、" そこにあるいつものように

Answer 4

まずも注文クラスを派生：

data XYZ = XYZ .... deriving (Show, Eq, Ord) 

または式インスタンス上であなたを書く：

instance Eq XYZ where 
a == b = ... 

その後インテリジェントこととツリーを使用します！ [コンピュータサイエンス木は上から下へと成長！] [1]、長さNとのリストについては、（右から左へ）

import qualified Data.Map.Strict as Map 

removeDuplicates ::[a] -> [a] 
removeDuplicates list = map fst $ Map.toList $ Map.fromList $ map (\a -> (a,a)) list 

複雑さ：

1. リストのマップ：O（N）
2. Map.fromList：O（N * Nログ）
3. Map.toList：より小さいまたはNに等しいリストの長さを持つリスト上のO（Nログ）
4. マップ：O（N）

それらが連続と呼ばれ、これは、部品の複雑さとの間のプラスがある=> O（2 * N + N * Nのログ+ Nログ）= O（N * Nログ）

これはリストよりN^2回横断するよりも良い方法です！ 参照：wolframAlpha plots比較のために2 * Nも含めました。

2 + 3：http://hackage.haskell.org/package/containers-0.5.4.0/docs/Data-Map-Strict.html

[1]：コンピュータサイエンスツリー