F#中的工厂模式

在F#中实现工厂模式，可以使用模式匹配来创建对象的实例。以下是一个简单的示例，演示如何使用工厂模式创建不同类型的形状对象：

type Shape =
    | Rectangle of width: float * height: float
    | Circle of radius: float

let createShape shapeType =
    match shapeType with
    | "rectangle" -> Rectangle(10.0, 5.0)
    | "circle" -> Circle(7.0)
    | _ -> failwith "Invalid shape type"

let rectangle = createShape "rectangle"
let circle = createShape "circle"

match rectangle with
| Rectangle(width, height) -> printfn "Rectangle: width=%f, height=%f" width height
| _ -> ()

match circle with
| Circle(radius) -> printfn "Circle: radius=%f" radius
| _ -> ()

在上面的代码中，Shape是一个联合类型，表示不同的形状。Rectangle和Circle是该联合类型的两个案例。createShape函数基于输入的形状类型字符串创建相应的形状对象。使用模式匹配，我们可以根据具体的形状类型执行不同的操作。

在示例中，我们首先通过调用createShape函数创建了一个矩形对象rectangle和一个圆形对象circle。然后，使用模式匹配将它们的属性提取出来，并打印出来。

这个示例只是一个简单的实现，你可以根据具体的需求进行扩展和修改。