A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Find-the-missing-permutation/Haskell/find-the-missing-permutation.hs
+++ b/Task/Find-the-missing-permutation/Haskell/find-the-missing-permutation.hs
@ -0,0 +1,16 @@
+import Data.List
+import Control.Monad
+import Control.Arrow
+
+missingPerm :: Eq a => [[a]] -> [[a]]
+missingPerm = (\\) =<< permutations . nub . join
+
+deficientPermsList = ["ABCD","CABD","ACDB","DACB",
+                      "BCDA","ACBD","ADCB","CDAB",
+                      "DABC","BCAD","CADB","CDBA",
+                      "CBAD","ABDC","ADBC","BDCA",
+                      "DCBA","BACD","BADC","BDAC",
+                      "CBDA","DBCA","DCAB"]
+
+main = do
+    print $ missingPerm deficientPermsList