在 Haskell 中使用 vigenere 密码编码文本时遇到问题

Question

我正在从事一个编码项目，我们需要在 Haskell 中编写一个 vigenere cypher。我花了几个小时并没有取得什么进展，但我被困在一个特定的部分。到目前为止，这是我的代码：

--Program: VigCipher.hs
--Author: Mouse

import Data.Char
import Text.Printf

--Changes letters to their numerical value
let2int   :: Char -> Int
let2int c = ord c - ord 'a'

--Changes numerical values to letters
int2let   :: Int -> Char
int2let n = chr (ord 'a' + n)

--Shift letter by n mod 26 places
shift :: Int -> Char -> Char
shift n c | isLower c = int2let ((let2int c + n) `mod` 26)
      | otherwise = c

--Encoding function
encode         :: String -> String -> [Char]
encode key msg = [shift (26 - let2int (key !! a) | a <- as) (msg !! a) | x <- zip (cycle key)msg]

我的问题出在 Encoding 函数中：我希望该函数在键和应该编码的消息的每个索引处检查和更改字符。我的印象是我所拥有的应该可以工作，但是当我运行它时，由于 |在：（键！！a）|一个

Answer 1

语法是

[element | bindings, guards]

你的语法错误是这样的

• 有两个| 标志
• 第一个 | 出现在元素部分完成之前（计算括号）

所以试试

encode key msg = [shift (26 - let2int (key !! a)) (msg !! a)
                 | a <- as, x <- zip (cycle key) msg]

您的下一个错误是因为您没有在任何地方定义as。 （而且你似乎没有使用x。）

---

编辑：在 cmets 中，您说您已将代码更改为

encode key msg = [shift (26 - let2int (x)) (msg) | x <- zipWith (fst() key msg)]

你说你很困惑，你收到一条错误消息，表明你没有给zipWith它需要的三个参数。

你给zipWith一个参数，它是(fst() key msg)。

我设想您将代码更改为类似于

encode key msg = zipWith f (cycle key) msg
  where f keyElem msgElem = shift (26 - let2int keyElem) msgElem

Answer 2

启用parallel list comprehensions（通过在文件顶部粘贴{-# LANGUAGE ParallelListComp #-}，或在GHCi 中输入:set -XParallelListComp），您可以编写：

encode key msg = [shift (26 - let2int k) m | k <- cycle key | m <- msg]

这将被脱糖为

encode key msg = [shift (26 - let2int k) m | (k,m) <- zip (cycle key) msg] 

与

相同

encode key msg = zipWith (\k m -> shift (26 - let2int k) m) (cycle key) msg

即dave4420 的解决方案。他的解决方案更加惯用，并且不依赖于 GHC 扩展 - 所以一定要使用那个！只是想我会展示一种简洁的书写方式。