Create MutualInfo.hs

mutInfoOnlogn [1,2,3,4,5,6,7,8,9,10] (reverse [1,2,3,4,5,6,7,8,9,10])
--just test it
--mutInfoOnlogn :: Ord a => Eq a => [a] -> [a] -> Float