HuffCodes_002.hs

import Data.List

data HTree = 

{-
freq :: HTree -> Double


merge :: HTree -> HTree -> HTree


--mergeAllTrees' :: [HTree]  -> HTree 
--mergeAllTrees' [t] = t
--mergeAllTrees' ts = mergeAllTrees' (t:rest)
--    where
--        (f:s:rest) = sortOn freq ts
--        t = merge f s

        
mergeAllTrees :: [HTree] -> HTree


mini :: ...


--list comprehension
removei :: Int -> [a] -> [a]


--recursion
removei' :: Int -> [a] -> [a]


--other way?
removei'' :: Int-> [a] ->[a]


buildHTree :: [(Char,Double)] -> HTree 


decodeTree :: String -> HTree -> [(Char,String)]

 
--minor bug: what if there's only one char? who cares...
getCodes :: [(Char,Double)] -> [(Char,String)]


getCodes' :: [(Char,Double)] -> [(Char,String)]


get350Slide38 = [('A',0.35),('B',0.1),('C',0.2),('D',0.2),('_',0.15)] 
        
-}