Шифр Виженера на языке Haskell

#34259

Лабораторная работа

Не указан

Программирование

Не указана

Шифр Виженера – это обобщение шифра Цезаря. Ключ в шифре Виженера – это конечная последовательность алфавитных сдвигов, которые циклически повторяются при проходе по символам сообщения. Шифр Цезаря – это шифр Виженера с длиной ключа 1.

На языке Haskell, реализуйте функцию

vigenere :: [Char] -> [Int] -> String -> String
vigenere alphabet key message = undefined
принимающую алфавит (в виде строки), ключ (в виде списка целых чисел – сдвигов) и сообщение (в виде строки) и шифрующее его. Учтите, что сдвиги могут быть отрицательными.

Если в сообщении встречается символ, не входящий в алфавит, пропускайте его.

Указание: используйте функции cycle, zipWith, elemIndex, оператор (!!), и списочные включения.

Реализуйте на основе функции vigenere обратную функцию.