Добавил кол-во бит в название
This commit is contained in:
@@ -22,7 +22,7 @@ main = do
|
|||||||
|
|
||||||
let sourceTextPath = "resources/biography.txt"
|
let sourceTextPath = "resources/biography.txt"
|
||||||
let sourceImagePath = "resources/david.bmp"
|
let sourceImagePath = "resources/david.bmp"
|
||||||
let encodedImagePath = "tmp/david_" ++ show caesarShift ++ ".bmp"
|
let encodedImagePath = "tmp/david_" ++ show bitsPerByte ++ "_" ++ show caesarShift ++ ".bmp"
|
||||||
let decodedTextPath = "tmp/biography.txt"
|
let decodedTextPath = "tmp/biography.txt"
|
||||||
|
|
||||||
putStrLn $ "\nЧтение текста из файла \"" ++ sourceTextPath ++ "\""
|
putStrLn $ "\nЧтение текста из файла \"" ++ sourceTextPath ++ "\""
|
||||||
|
|||||||
Reference in New Issue
Block a user