1

以下のコードは、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

4

1 に答える 1