14 lines
343 B
Haskell
14 lines
343 B
Haskell
module Main (main) where
|
|
|
|
import Lib
|
|
|
|
caesarShift :: Int
|
|
caesarShift = 66
|
|
|
|
main :: IO ()
|
|
main = do
|
|
inputText <- readFile "resources/biography.txt"
|
|
putStrLn $ take 30 inputText
|
|
let alphabet = createAlphabetFromText inputText
|
|
putStrLn $ show (length alphabet)
|
|
putStrLn $ take 30 (encryptCaesar alphabet caesarShift inputText) |