Data commit

Task/Find-the-missing-permutation/Haskell/find-the-missing-permutation-1.hs

@@ -0,0 +1,37 @@
+import Data.List ((\\), permutations, nub)
+import Control.Monad (join)
+
+missingPerm
+  :: Eq a
+  => [[a]] -> [[a]]
+missingPerm = (\\) =<< permutations . nub . join
+
+deficientPermsList :: [String]
+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 :: IO ()
+main = print $ missingPerm deficientPermsList

Task/Find-the-missing-permutation/Haskell/find-the-missing-permutation-2.hs

@@ -0,0 +1,37 @@
+import Data.List (minimumBy, group, sort, transpose)
+import Data.Ord (comparing)
+
+missingPerm
+  :: Ord a
+  => [[a]] -> [a]
+missingPerm = fmap (head . minimumBy (comparing length) . group . sort) . transpose
+
+deficientPermsList :: [String]
+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 :: IO ()
+main = print $ missingPerm deficientPermsList

Task/Find-the-missing-permutation/Haskell/find-the-missing-permutation-3.hs

@@ -0,0 +1,35 @@
+import Data.Char (chr, ord)
+import Data.Bits (xor)
+
+missingPerm :: [String] -> String
+missingPerm = fmap chr . foldr (zipWith xor . fmap ord) [0, 0, 0, 0]
+
+deficientPermsList :: [String]
+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 :: IO ()
+main = putStrLn $ missingPerm deficientPermsList