我正在尝试计算行列式，我的det函数定义如下：
det :: (Double,Double) -> (Double,Double) -> Double
det _ = 0.0
det [] = error "its Empty!"
det [x] = error "contains only one point!"
det (x1, y1) (x2, y2) = (x1*y2 + x2*y1)
我收到以下错误
Equations for ‘det’ have different numbers of arguments
PolygonArea.hs:11:1-11
PolygonArea.hs:14:1-39
Failed, modules loaded: none.
我有一个任意树,并希望将其转换为整数树,原始值应替换为整数.每次出现时都必须用相同的数字替换相同的值.
提供了遍历树的功能,这是我的标签功能
label :: Ord a => a -> State (Store a Int) Int
我相信我需要一个堆栈来存储标签,但我不知道如何应用它,任何指导将不胜感激