下面的代码被编程来决定 Haskell 中纸石头和剪刀的结果,但是终端给出错误
data Move = Paper | Rock | Scissors
deriving (Eq, Show)
data Result = Win | Draw | Loose
deriving (Eq, Show)
beats :: Move -> Move
beats move = case move of
Paper -> Scissors
Rock -> Paper
Scissors -> Rock
score :: Move -> Move -> Result
score this_move opposing_move
| this_move == beats opposing_move = Win
| this_move == opposing_move = Draw
| otherwise = Loose
这是来自终端的错误消息
[1 of 1] Compiling Main ( test.hs, interpreted )
test.hs:1:60: parse error on input `data'
Failed, modules loaded: none.
谁喜欢告诉我它有什么问题?谢谢XD