一副扑克牌，每次出示4张，以四则运算计算它的值，给出结果为24的表达式。请以haskell实现代码。...

您可以使用以下Haskell代码来实现24点游戏的表达式：

import Data.List (permutations)

data Card = Ace |Two | Three | Four | Five | Six | Seven | Eight | Nine | Ten | Jack | Queen | King
  deriving (Show, Eq, Enum)

data Operation = Add | Sub | Mul | Div
  deriving (Show, Eq)

eval :: Double -> Double -> Opera