git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@13 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 14 insertions, 2 deletions

diff --git a/HsBot.hs b/HsBot.hs
index ac6876c..5aee38c 100644
--- a/HsBot.hs
+++ b/HsBot.hs
@@ -122,11 +122,23 @@ userKarma user = userKarma' (userPts user) (userPerc user)
 	where userKarma' pts perc = 
 		let cands = sort $ filter (\x -> minPts x <= pts && minPerc x <= perc) (karmas makeConf)
 		in karmaName $ cands !! 0 -- Best posible karma 
-			 
+
+-- Sorts a list			 
 sort :: (Ord a) => [a] -> [a]
 sort [] = []
 sort (x:xs) = sort (filter (>= x) xs) ++ [x] ++ sort (filter (< x) xs)
 
+uniq :: (Eq a) => [a] -> [a]
+uniq list = 
+	let r = u' list 0                    
+            u' [] _ = []              
+  	    u' (x:list) n 
+		| member x r n = u' list n 
+		| otherwise = x:(u' list (n + 1))
+  	    member e list 0 = False
+  	    member y (x:list) n = x == y || member y list (n - 1)
+        in r
+
 split :: String -> Char -> [String]
 split [] delim = [""]
 split (c:cs) delim 
@@ -136,7 +148,7 @@ split (c:cs) delim
 
 -- Returns a list of all strings to increase or decrease the karma of
 matches :: String -> String -> [String]
-matches search string = 
+matches search string = uniq $
 	case m' $ occ search string of
 		(list, "") -> list
 		(list, rest) -> list ++ (matches search rest)