haskell - 在输入 `='上解析错误？

Question

Closed. This question is not reproducible or was caused by typos。它当前不接受答案。












想改善这个问题吗？更新问题，以便将其作为 on-topic用于堆栈溢出。

3年前关闭。



Improve this question




我是Haskell的新手，正在尝试通过移动ASCII值来加密纯文本，如果我的纯文本包含数字，则必须通过在特殊数字处放置一个特殊符号代替数字来对每个数字进行编码，例如(0 = *，1 ='\'，2 =〜，3 = !, 4 = @，5 =＃，6 = $，7 =％，8 = ^，9 =＆)。这是我的代码

import Data.Char

isInRange :: Char -> Char -> Char -> Bool
isInRange l u c = (c >= l) && (c <= u)

--is this Letter to be ciphered
canEncrypt :: Char -> Bool
canEncrypt c = isLower(c) && isAscii(c)

-should we wrap around the alphabet ?
wraparound shift c
 | isLower c && ord(c)+shift > ord 'z' = True
 | otherwise = False

--encrypt single char at a time
encryptChar :: Char -> Char -> Char
encryptChar :: Char -> Char -> Char
encryptChar shift c
  | canEncrypt c = chr (ord c + wrapshift)
  | isUpper c = c
  Where wrapshift = let shift' = ord(shift) `mod` 26
                    in if (wraparound shift' c)
                        then shift'-26
                        else shift'
encryptChar _ '0' = '*'
encryptChar _ '1' = '\''
encryptChar _ '2' = '~'
encryptChar _ '3' = '!'
encryptChar _ '4' = '@'
encryptChar _ '5' = '#'
encryptChar _ '6' = '$'
encryptChar _ '7' = '%'
encryptChar _ '8' = '^'
encryptChar _ '9' = '&'
encryptChar _ c = c

encryptText :: String -> String -> String
encryptText text xs = [ encryptChar x s | x <- xs, s <- text]

到目前为止，到目前为止，为环绕我的加密字符，我定义了 wrapshift函数(我认为是罪魁祸首)，但是当我对其进行编译时，它显示如下错误

encrypt2.hs:27:18: error:
parse error on input `='
Perhaps you need a 'let' in a 'do' block?
e.g. 'let x = 5' instead of 'x = 5'
   |
27 |  Where wrapshift = let shift' = ord(shift) `mod` 26
   |                  ^
Failed, 0 modules loaded.

我知道这些错误是由于源文件中的 tabs而发生的，但是我检查了整个文件，没有发现任何错误。我认为这里做错了什么，我不知道是什么？为什么会发生此错误，请帮助我，我已经被打到这里了。谢谢

最佳答案

Where wrapshift

请注意，此处的 where如何不作为关键字突出显示。那是因为您将其拼写为大写的“W”。

因此，它被解释为标识符而不是关键字，从而使 Where wrapshift解释为上一个表达式的参数(即 c Where wrapshift被视为函数调用)。这就是为什么它在那里不期望 =的原因。

关于haskell - 在输入 `='上解析错误？ ，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/47415710/

上一篇：compiler-errors - ocaml中的环境- `type a'信封上的语法错误

下一篇：java - 未报告的异常IOException…必须被捕获或声明为引发

相关文章：

c++ - 在类成员的实例化期间: "no operator "[ ]"matches these operands"使用 map[key] 访问 std::map 值时

Haskell 奇异运算符

Javascript toString 对我来说毫无意义

haskell - 使用 FFI 将 'C' 延迟函数导入 Haskell

C++ 何时在运算符重载函数前使用 &

arrays - 从字符串数组中添加两个数字的正确 bash 语法是什么？

haskell - 我修改后的 zip 版本有什么问题？

python - cython编译错误: multiple definition of functions

haskell - 为什么值构造函数不能在不参数化类型的情况下获取类型变量？

haskell - 通过 CI 为 Linux 和 Mac 构建二进制文件

Answer 1

Where wrapshift

请注意，此处的 where如何不作为关键字突出显示。那是因为您将其拼写为大写的“W”。

因此，它被解释为标识符而不是关键字，从而使 Where wrapshift解释为上一个表达式的参数(即 c Where wrapshift被视为函数调用)。这就是为什么它在那里不期望 =的原因。