On Tue, 8 Apr 2008, Jackm139 wrote:


Thanks for all the replies!
I have it working somewhat.  It works as long as there is only one string in
each list, but if the lists contain more than one string it fails. here is
what I have:


import List

same :: [[Char]] -> [[Char]] -> Bool
same [xs] [ys] = map (normalize) [[xs]] == map (normalize) [[ys]]

normalize :: [String] -> [String]
normalize [xs] = [(sort (nub xs))]

'normalize' (if correctly implemented) is essentially the same as 'Data.Set.fromList'
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to