Merge branch 'testing' into Mapping

2014-04-28 23:36:41 +02:00
parent 49518e3006 07dac9aad1
commit 853c11b4df
4 changed files with 26 additions and 25 deletions
--- a/src/Map/Map.hs
+++ b/src/Map/Map.hs
@ -39,6 +39,3 @@ giveNeighbourhood mp n (a,b) = let ns = giveNeighbours mp (a,b) in
 -- removing duplicates in O(n log n), losing order and adding Ord requirement
 remdups :: Ord a => [a] -> [a]
 remdups = map head . group . sort
-
-prop_rd_idempot :: [Int] -> Bool
-prop_rd_idempot xs = remdups xs == (remdups . remdups) xs