univer-5th-semester/functional-programming
Code Actions Releases 7

Форматирование кода

Browse Source
This commit is contained in:
Артём Тищенко
2024-11-17 20:20:23 +03:00
parent a69a81d89a
commit d9076f7dfa
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lab3/src/Lib.hs
View File

@@ -21,19 +21,19 @@ createAlphabetFromText (x:xs)
indexOf :: (Eq t) => [t] -> t -> Int indexOf :: (Eq t) => [t] -> t -> Int
indexOf [] _ = -1 indexOf [] _ = -1
indexOf (x : xs) target indexOf (x : xs) target
| x == target = 0 | x == target = 0
| otherwise = 1 + indexOf xs target | otherwise = 1 + indexOf xs target
encryptCaesar :: [Char] -> Int -> String -> String encryptCaesar :: [Char] -> Int -> String -> String
encryptCaesar alphabet shift text = map caesarChar text encryptCaesar alphabet shift text = map caesarChar text
where where
caesarChar c = alphabet !! ((indexOf alphabet c + shift) `mod` length alphabet) caesarChar c = alphabet !! ((indexOf alphabet c + shift) `mod` length alphabet)
decryptCaesar :: [Char] -> Int -> String -> String decryptCaesar :: [Char] -> Int -> String -> String
decryptCaesar alphabet shift = decryptCaesar alphabet shift =
encryptCaesar alphabet (alphabetLength - (shift `mod` alphabetLength)) encryptCaesar alphabet (alphabetLength - (shift `mod` alphabetLength))
where where
alphabetLength = length alphabet alphabetLength = length alphabet
textToBits :: String -> [Int] textToBits :: String -> [Int]
textToBits = concatMap charToBits textToBits = concatMap charToBits