判別共用体 (F#)

  • [アーティクル]

判別共用体は、数多くの名前付きケースのうちのいずれかである可能性がある値をサポートします。ケースの値や型が、それぞれ異なる場合もあります。判別共用体は、異種データ、有効ケースやエラー ケースなどの特殊なケースを持つ可能性のあるデータ、インスタンスごとに型が異なるデータ、小さいオブジェクト階層に対する代替手段などの場合に役立ちます。さらに、再帰的な判別共用体は、ツリー データ構造を表すために使用されます。

type type-name =
   | case-identifier1 [of type1 [ * type2 ...]
   | case-identifier2 [of type3 [ * type4 ...]
   ...

解説

判別共用体は他の言語の共用体型と似ていますが、異なる点もあります。C++ の共用体型や Visual Basic のバリアント型と同じように、値に格納されるデータは固定ではありません。複数の異なるオプションのいずれかを格納できます。ただし、これら他の言語の共用体とは異なり、有効な各オプションにはケース識別子が指定されます。ケース識別子には、使用できる各種の値の型の名前を指定します。指定した型のオブジェクトは値の型として使用できます。値は省略可能です。値を省略する場合は、ケースが列挙型のケースと等しくなります。値がある場合は、各値に、指定した型の単一値、あるいは同じ型または異なる型の複数の値を集約したタプルを使用できます。

option 型は、F# コア ライブラリの単純な判別共用体です。option 型は、次のように宣言されます。

// The option type is a discriminated union.
type Option<'a> =
    | Some of 'a
    | None

このコードでは、Option 型が、Some と None の 2 つのケースを持つ判別共用体として指定されています。Some ケースには、型が型パラメーター 'a によって表される、関連する値があります。None ケースには、関連する値はありません。したがって、option 型は、なんらかの型の値を持つジェネリック型、または値を持たないジェネリック型を指定します。また、Option 型には小文字の型のエイリアス option があり、より一般的に使用されます。

ケース識別子は、判別共用体型のコンストラクターとして使用できます。たとえば、option 型の値を作成するには、次のようなコードが使用されます。

let myOption1 = Some(10.0)
let myOption2 = Some("string")
let myOption3 = None

ケース識別子は、パターン マッチ式でも使用されます。パターン マッチ式では、個別のケースに関連付けられる値に対して識別子が提供されます。たとえば、次のコードの x は、option 型の Some ケースと関連付けられた値が指定された識別子です。

let printValue opt =
    match opt with
    | Some x -> printfn "%A" x
    | None -> printfn "No value."

通常は、共用体の名前で、修飾せずにケース識別子を使用できます。名前を共用体の名前で常に修飾する場合は、RequireQualifiedAccess 属性を共用体の型定義に適用できます。

オブジェクト階層ではなく、判別共用体を使用する場合

多くの場合、小さいオブジェクト階層をさらに簡単に表すために判別共用体を使用できます。たとえば、円や正方形などの派生型を持つ Shape 基本クラスの代わりに、次の判別共用体を使用できます。

type Shape =
  // The value here is the radius.
| Circle of float
  // The value here is the side length.
| EquilateralTriangle of double
  // The value here is the side length.
| Square of double
  // The values here are the height and width.
| Rectangle of double * double

オブジェクト指向の実装で使用される、面積や周を計算するための仮想メソッドの代わりに、パターン マッチを使用して、これらの量を計算するための適切な式に分岐できます。次の例では、図形に応じて、異なる数式を使用して面積を計算しています。

let pi = 3.141592654

let area myShape =
    match myShape with
    | Circle radius -> pi * radius * radius
    | EquilateralTriangle s -> (sqrt 3.0) / 4.0 * s * s
    | Square s -> s * s
    | Rectangle (h, w) -> h * w

let radius = 15.0
let myCircle = Circle(radius)
printfn "Area of circle that has radius %f: %f" radius (area myCircle)

let squareSide = 10.0
let mySquare = Square(squareSide)
printfn "Area of square that has side %f: %f" squareSide (area mySquare)

let height, width = 5.0, 10.0
let myRectangle = Rectangle(height, width)
printfn "Area of rectangle that has height %f and width %f is %f" height width (area myRectangle)

出力は次のとおりです。

Area of circle that has radius 15.000000: 706.858347
Area of square that has side 10.000000: 100.000000
Area of rectangle that has height 5.000000 and width 10.000000 is 50.000000

ツリー データ構造への判別共用体の使用

判別共用体は再帰的に使用できます。つまり、共用体自体を 1 つ以上のケースの型に含めることができます。再帰的な判別共用体を使用してツリー構造を作成でき、このツリー構造をプログラミング言語での式のモデル化に使用できます。次のコードでは、再帰的な判別共用体を使用して、バイナリ ツリーのデータ構造を作成しています。この共用体を構成する 2 つのケースは、整数値および左と右のサブツリーを持つノードである Node と、ツリーを終了する Tip です。

type Tree =
    | Tip
    | Node of int * Tree * Tree

let rec sumTree tree =
    match tree with
    | Tip -> 0
    | Node(value, left, right) ->
        value + sumTree(left) + sumTree(right)
let myTree = Node(0, Node(1, Node(2, Tip, Tip), Node(3, Tip, Tip)), Node(4, Tip, Tip))
let resultSumTree = sumTree myTree

このコードでは、resultSumTree の値は 10 です。次の図は、myTree のツリー構造を示しています。

myTree のツリー構造

判別共用体のツリー ダイアグラム

判別共用体は、ツリーのノードが異種の場合でも、問題なく機能します。次のコードの Expression 型は、数と変数の加算と乗算をサポートする簡単なプログラミング言語での式の抽象構文ツリーを表します。共用体の一部のケースは再帰的ではなく、数 (Number) または変数 (Variable) を表します。他のケースは再帰的で、演算 (Add および Multiply) を表し、オペランドも式です。Evaluate 関数では、match 式を使用して再帰的に構文ツリーを処理しています。

type Expression = 
    | Number of int
    | Add of Expression * Expression
    | Multiply of Expression * Expression
    | Variable of string

let rec Evaluate (env:Map<string,int>) exp = 
    match exp with
    | Number n -> n
    | Add (x, y) -> Evaluate env x + Evaluate env y
    | Multiply (x, y) -> Evaluate env x * Evaluate env y
    | Variable id    -> env.[id]

let environment = Map.ofList [ "a", 1 ;
                               "b", 2 ;
                               "c", 3 ]

// Create an expression tree that represents
// the expression: a + 2 * b.
let expressionTree1 = Add(Variable "a", Multiply(Number 2, Variable "b"))

// Evaluate the expression a + 2 * b, given the
// table of values for the variables.
let result = Evaluate environment expressionTree1

このコードを実行すると、result の値は 5 になります。

参照

その他の技術情報

F# 言語リファレンス