module Exercise_12 where
import qualified Data.ByteString as BS
import Morse

{-G12.1-}

{- Folgende Funktionen können Sie zur Lösung verwenden (andere Funktionen sind natürlich auch gestattet):

    -- definiert in Data.ByteString
    -- entpackt den ByteString in eine Liste von Byte-Werten (Word8 = Byte)
    unpack :: ByteString -> [Word8]

    -- definiert in Data.ByteString
    -- packt eine Liste von Byte-Werten in einen ByteString
    pack :: [Word8] -> ByteString

    -- definiert in Data.Bits
    -- Links-Shift um n Stellen
    shiftL :: Word8 -> Int -> Word8

    -- definiert in Data.ByteString
    -- schreibt einen ByteString in eine Datei
    writeFile :: FilePath -> ByteString -> IO ()

    -- definiert in Data.ByteString
    -- liest einen ByteString aus einer Datei
    readFile :: FilePath -> IO ByteString

-}

compress :: String -> FilePath -> IO ()
compress = undefined

decompress :: FilePath -> IO (Maybe String)
decompress = undefined


{-H12.1-}

morseToString :: MorseSequence -> Maybe String
morseToString = undefined

{-H12.2-}

bitStreamToMorse :: Int -> [Bool] -> MorseSequence
bitStreamToMorse = undefined

{-H12.3-}

-- in eigener Datei zu lösen

{-H12.4-}

{-WETT-}
anagram :: [String] -> String -> Maybe String
anagram = undefined
{-TTEW-}