F#中Scala“case class”的等价物

时间:2011-06-15 08:14:10

标签: scala f# functional-programming

我正在寻找Scala中可用的F#“案例类”中的等价物。

如果您希望使用方法和字段创建自定义类并且仍然可以将它们与模式匹配一​​起使用,则案例类非常有用,如Scala网站的article中所述。

有人知道F#中是否存在相同的内容吗?

2 个答案:

答案 0 :(得分:27)

正如Brian所提到的,模式匹配有两种方式:1。判别的联合和2.现有类型的活动模式。

让我们从这个Scala示例开始:

abstract class Term
case class Var(name: String) extends Term
case class Fun(arg: String, body: Term) extends Term
case class App(f: Term, v: Term) extends Term

这个OO设计可以转换为F#中的歧视联盟(DU):

type Term = 
    Var of string 
    | Fun of string * Term 
    | App of Term * Term

基于此DU,您可以匹配Term值以查找它所属的子类型:

let eval (t: Term) = 
    match t with
    | Var (name) -> ...
    | Fun (para, body) -> ...
    | App (t1, t2) -> ...

请注意,您可以在此Term类型上定义方法和属性:

type Term = 
    Var of string 
    | Fun of string * Term 
    | App of Term * Term
    with 
    member x.Type() = 
        match x with
        | Var _ -> 0
        | Fun _ -> 1
        | App _ -> 2

现在出现了差异:

  1. 您无法在其子类型上定义方法:VarFunApp

  2. 您可以在Term上定义的方法是不可变的。

  3. 一旦定义了DU,就无法对其进行扩展。想想你现在需要向For添加Term子类型。然后,您必须更改模式匹配Term的大量代码。

  4. 在oo设计中,它不是一个问题。因为新的子类型可以携带自己的实现。

  5. 在F#中,当您想要在子类型上构建简洁类型匹配时,应首先考虑DU。但它也有明显的限制。我认为活动模式匹配更像是Scala中的case类(我只读了一点Scala):

    // define the classes for different term types
    [<AbstractClass>]
    type Term() = 
        abstract Value: int with get
    
    type Var(name:string) =
        inherit Term()
        override x.Value = 
            0
        member x.Name with get() = name
    
    type Fun(name:string, body:Term) = 
        inherit Term()
        override x.Value = 
            0
        member x.Name with get() = name
        member x.Body with get() = body
    
    
    type App(t1:Term, t2:Term) = 
        inherit Term()
        override x.Value = 
            0    
        member x.Term1 with get() = t1
        member x.Term2 with get() = t2
    
    // the pattern function 
    let (|TVar|TFun|TApp|) (x:Term) = 
        match x with
        | :? Var -> 
            let y = x :?> Var
            TVar(y.Name)
        | :? Fun -> 
            let y = x :?> Fun
            TFun(y.Name, y.Body)
        | :? App ->
            let y = x :?> App
            TApp(y.Term1, y.Term2)
    

    和使用活动模式的eval函数:

    let eval2 (t:Term) = 
        match t with
        | TVar (name) -> 0
        | TFun (name, body) -> 0
        | TApp (t1, t2) -> 0
    

    活动模式结合了双方的好处:功能编程和面向对象。

    REF。活动模式herehere

    您可以参考Don Syme的the original paper on active pattern

答案 1 :(得分:7)

受歧视的工会?您可以向它们添加成员方法。或者,您可以在现有类上使用活动模式。