haskell - 制作更好的 Haskell 函数

Question

我有以下 Haskell 函数

fun::Vertex3 GLfloat -> Vertex3 GLfloat ->  Vertex3 GLfloat
fun (Vertex3 x0 y0 z0) (Vertex3 x1 y1 z1) = do sth here
        where
            p0 = (Vertex3 x0 y0 z0)
            p1 = (Vertex3 x1 y1 z1)
            p = p0 + p1

我想知道是否有办法不重复(Vertex3 x0 y0 z0) (Vertex3 x1 y1 z1) 代码内

我正在寻找类似的东西:

fun::Vertex3 GLfloat -> Vertex3 GLfloat ->  Vertex3 GLfloat
fun p0 p1 = do sth here
    where 
        p0 = (Vertex3 x0 y0 z0)
        p1 = (Vertex3 x1 y1 z1)
        p = p0 + p1

Answer 1

是的，您可以使用as-pattern [AGItH'98] :

fun::Vertex3 GLfloat -> Vertex3 GLfloat -> Vertex3 GLfloat
fun <b>p0@</b>(Vertex3 x0 y0 z0) <b>p1@</b>(Vertex3 x1 y1 z1) = do sth here
        where p = p0 + p1

因此，我们在这里引用了参数 p0 以及数据构造函数中的元素(x0、y0、z0)。

这些作为模式可以在模式的不同级别使用。