@k2works/claude-code-booster 6.2.0 → 6.3.1

package/lib/assets/docs/article/functional-desgin-ppp/clojure/13-abstract-factory-pattern.md

@@ -1,484 +0,0 @@
----
-type: Article
-title: "第13章: Abstract Factory パターン"
-description: "Abstract Factory パターンは、関連するオブジェクトのファミリーを、その具体的なクラスを指定することなく生成するためのインターフェースを提供するパターンです。"
-tags: [article, functional-desgin-ppp, clojure]
-status: stable
-generated: { by: human:kakimomokuri, at: 2026-03-24T05:22:28Z }
----
-
-# 第13章: Abstract Factory パターン
-
-## はじめに
-
-Abstract Factory パターンは、関連するオブジェクトのファミリーを、その具体的なクラスを指定することなく生成するためのインターフェースを提供するパターンです。
-
-本章では、図形ファクトリと UI ファクトリの例を通じて、マルチメソッドによる Abstract Factory パターンの実装を学びます。
-
-## 1. パターンの構造
-
-Abstract Factory パターンは以下の要素で構成されます：
-
-- **AbstractFactory**: オブジェクト生成の抽象インターフェース
-- **ConcreteFactory**: 具体的なオブジェクトを生成するファクトリ
-- **AbstractProduct**: 生成されるオブジェクトの抽象インターフェース
-- **ConcreteProduct**: 具体的な製品
-
-```plantuml
-@startuml
-skinparam classAttributeIconSize 0
-
-interface "AbstractFactory" as factory {
-  +make-shape(type, args)
-}
-
-class "StandardFactory" as standard {
-  +make-shape(type, args)
-}
-
-class "OutlinedFactory" as outlined {
-  +outline-color
-  +outline-width
-  +make-shape(type, args)
-}
-
-class "FilledFactory" as filled {
-  +fill-color
-  +make-shape(type, args)
-}
-
-interface "Shape" as shape {
-  +translate(dx, dy)
-  +scale(factor)
-  +to-string()
-}
-
-class "Circle" as circle
-class "Square" as square
-class "Rectangle" as rectangle
-
-standard ..|> factory
-outlined ..|> factory
-filled ..|> factory
-
-circle ..|> shape
-square ..|> shape
-rectangle ..|> shape
-
-factory --> shape : creates
-
-note right of factory
-  AbstractFactoryは
-  製品生成のインターフェースを定義します。
-  具体的なファクトリはこれを実装します。
-end note
-@enduml
-```
-
-## 2. Shape インターフェース
-
-### マルチメソッドによる定義
-
-```clojure
-(ns abstract-factory.shape)
-
-(defmulti translate
-  "図形を移動する"
-  (fn [shape _dx _dy] (::type shape)))
-
-(defmulti scale
-  "図形を拡大/縮小する"
-  (fn [shape _factor] (::type shape)))
-
-(defmulti to-string
-  "図形を文字列に変換する"
-  (fn [shape] (::type shape)))
-```
-
-### Circle の実装
-
-```clojure
-(ns abstract-factory.circle
-  (:require [abstract-factory.shape :as shape]))
-
-(defn make
-  "円を作成"
-  [center radius]
-  {::shape/type ::circle
-   ::center center
-   ::radius radius})
-
-(defmethod shape/translate ::circle [circle dx dy]
-  (let [[x y] (::center circle)]
-    (assoc circle ::center [(+ x dx) (+ y dy)])))
-
-(defmethod shape/scale ::circle [circle factor]
-  (let [radius (::radius circle)]
-    (assoc circle ::radius (* radius factor))))
-
-(defmethod shape/to-string ::circle [circle]
-  (let [[x y] (::center circle)
-        radius (::radius circle)]
-    (str "Circle center: [" x ", " y "] radius: " radius)))
-```
-
-## 3. ShapeFactory インターフェース
-
-### Abstract Factory の定義
-
-```clojure
-(ns abstract-factory.shape-factory)
-
-(defmulti make-shape
-  "図形を生成する"
-  (fn [factory _type & _args] (::type factory)))
-```
-
-## 4. ConcreteFactory: StandardShapeFactory
-
-### 実装
-
-```clojure
-(ns abstract-factory.standard-shape-factory
-  (:require [abstract-factory.shape-factory :as factory]
-            [abstract-factory.circle :as circle]
-            [abstract-factory.square :as square]
-            [abstract-factory.rectangle :as rectangle]))
-
-(defn make
-  "標準図形ファクトリを作成"
-  []
-  {::factory/type ::standard-factory})
-
-(defmethod factory/make-shape ::standard-factory
-  [_factory type & args]
-  (case type
-    :circle (apply circle/make args)
-    :square (apply square/make args)
-    :rectangle (apply rectangle/make args)
-    (throw (ex-info (str "Unknown shape type: " type) {:type type}))))
-```
-
-### 使用例
-
-```clojure
-(require '[abstract-factory.standard-shape-factory :as standard])
-(require '[abstract-factory.shape-factory :as factory])
-
-(def factory (standard/make))
-
-(def circle (factory/make-shape factory :circle [10 20] 5))
-;; => {:abstract-factory.shape/type :abstract-factory.circle/circle,
-;;     :abstract-factory.circle/center [10 20],
-;;     :abstract-factory.circle/radius 5}
-
-(def square (factory/make-shape factory :square [0 0] 10))
-;; => {:abstract-factory.shape/type :abstract-factory.square/square,
-;;     :abstract-factory.square/top-left [0 0],
-;;     :abstract-factory.square/side 10}
-```
-
-## 5. ConcreteFactory: OutlinedShapeFactory
-
-### 実装
-
-```clojure
-(ns abstract-factory.outlined-shape-factory
-  (:require [abstract-factory.shape-factory :as factory]
-            [abstract-factory.circle :as circle]
-            [abstract-factory.square :as square]
-            [abstract-factory.rectangle :as rectangle]))
-
-(defn make
-  "輪郭線付き図形ファクトリを作成"
-  [outline-color outline-width]
-  {::factory/type ::outlined-factory
-   ::outline-color outline-color
-   ::outline-width outline-width})
-
-(defn- add-outline
-  "図形に輪郭線情報を追加"
-  [shape outline-color outline-width]
-  (assoc shape
-         ::outline-color outline-color
-         ::outline-width outline-width))
-
-(defmethod factory/make-shape ::outlined-factory
-  [factory type & args]
-  (let [outline-color (::outline-color factory)
-        outline-width (::outline-width factory)
-        base-shape (case type
-                     :circle (apply circle/make args)
-                     :square (apply square/make args)
-                     :rectangle (apply rectangle/make args))]
-    (add-outline base-shape outline-color outline-width)))
-```
-
-### 使用例
-
-```clojure
-(require '[abstract-factory.outlined-shape-factory :as outlined])
-
-(def factory (outlined/make "black" 2))
-
-(def circle (factory/make-shape factory :circle [10 20] 5))
-;; 輪郭線情報が追加された円が生成される
-```
-
-## 6. ConcreteFactory: FilledShapeFactory
-
-### 実装
-
-```clojure
-(ns abstract-factory.filled-shape-factory
-  (:require [abstract-factory.shape-factory :as factory]
-            [abstract-factory.circle :as circle]
-            [abstract-factory.square :as square]
-            [abstract-factory.rectangle :as rectangle]))
-
-(defn make
-  "塗りつぶし付き図形ファクトリを作成"
-  [fill-color]
-  {::factory/type ::filled-factory
-   ::fill-color fill-color})
-
-(defmethod factory/make-shape ::filled-factory
-  [factory type & args]
-  (let [fill-color (::fill-color factory)
-        base-shape (case type
-                     :circle (apply circle/make args)
-                     :square (apply square/make args)
-                     :rectangle (apply rectangle/make args))]
-    (assoc base-shape ::fill-color fill-color)))
-```
-
-## 7. クラス図
-
-```plantuml
-@startuml
-skinparam classAttributeIconSize 0
-
-package "Abstract Factory" {
-  interface "ShapeFactory" as factory {
-    +make-shape(factory, type, args)
-  }
-
-  class "StandardShapeFactory" as standard {
-    +::type: ::standard-factory
-    +make-shape(factory, type, args)
-  }
-
-  class "OutlinedShapeFactory" as outlined {
-    +::type: ::outlined-factory
-    +::outline-color: string
-    +::outline-width: number
-    +make-shape(factory, type, args)
-  }
-
-  class "FilledShapeFactory" as filled {
-    +::type: ::filled-factory
-    +::fill-color: string
-    +make-shape(factory, type, args)
-  }
-}
-
-package "Products" {
-  interface "Shape" as shape {
-    +translate(shape, dx, dy)
-    +scale(shape, factor)
-    +to-string(shape)
-  }
-
-  class "Circle" as circle {
-    +::center: [x, y]
-    +::radius: number
-  }
-
-  class "Square" as square {
-    +::top-left: [x, y]
-    +::side: number
-  }
-
-  class "Rectangle" as rectangle {
-    +::top-left: [x, y]
-    +::width: number
-    +::height: number
-  }
-}
-
-standard ..|> factory
-outlined ..|> factory
-filled ..|> factory
-
-circle ..|> shape
-square ..|> shape
-rectangle ..|> shape
-
-standard --> circle : creates
-standard --> square : creates
-standard --> rectangle : creates
-@enduml
-```
-
-## 8. UI ファクトリの例
-
-### プラットフォーム別 UI 生成
-
-```clojure
-(ns abstract-factory.ui-factory)
-
-;; Abstract Factory インターフェース
-(defmulti create-button
-  (fn [factory _label] (::factory-type factory)))
-
-(defmulti create-text-field
-  (fn [factory _placeholder] (::factory-type factory)))
-
-(defmulti create-checkbox
-  (fn [factory _label _checked?] (::factory-type factory)))
-
-;; WindowsUIFactory
-(defn make-windows-factory []
-  {::factory-type ::windows})
-
-(defmethod create-button ::windows [_factory label]
-  (make-button label :windows))
-
-;; MacOSUIFactory
-(defn make-macos-factory []
-  {::factory-type ::macos})
-
-(defmethod create-button ::macos [_factory label]
-  (make-button label :macos))
-```
-
-### シーケンス図
-
-```plantuml
-@startuml
-actor Client
-participant "UIFactory" as factory
-participant "Button" as button
-participant "TextField" as field
-
-Client -> factory : make-windows-factory()
-activate factory
-factory --> Client : windows-factory
-deactivate factory
-
-Client -> factory : create-button(factory, "OK")
-activate factory
-factory -> button : make-button("OK", :windows)
-activate button
-button --> factory : button
-deactivate button
-factory --> Client : windows-button
-deactivate factory
-
-Client -> factory : create-text-field(factory, "Name")
-activate factory
-factory -> field : make-text-field("Name", :windows)
-activate field
-field --> factory : text-field
-deactivate field
-factory --> Client : windows-text-field
-deactivate factory
-
-note right
-  ファクトリを切り替えるだけで
-  異なるプラットフォームの
-  UIを生成できます
-end note
-@enduml
-```
-
-### 使用例
-
-```clojure
-(require '[abstract-factory.ui-factory :as ui])
-
-;; ファクトリの交換で異なるUIを生成
-(defn create-form [factory]
-  {:button (ui/create-button factory "Submit")
-   :field (ui/create-text-field factory "Email")
-   :checkbox (ui/create-checkbox factory "Subscribe" false)})
-
-(def windows-form (create-form (ui/make-windows-factory)))
-(def macos-form (create-form (ui/make-macos-factory)))
-
-(ui/render (:button windows-form))
-;; => "[Submit]"
-
-(ui/render (:button macos-form))
-;; => "(Submit)"
-```
-
-## 9. パターンの利点
-
-1. **製品のファミリー一貫性**: 関連する製品が一貫して生成される
-2. **具体クラスの分離**: クライアントは具体的な製品クラスを知らない
-3. **製品ファミリーの交換**: ファクトリを交換するだけで製品群全体を変更可能
-4. **新しい製品ファミリーの追加が容易**: 新しい ConcreteFactory を追加するだけ
-
-## 10. 関数型プログラミングでの特徴
-
-Clojure での Abstract Factory パターンの実装には以下の特徴があります：
-
-1. **マルチメソッド**: ファクトリの型に基づいたディスパッチ
-2. **マップベースのファクトリ**: ファクトリは設定を含むマップとして表現
-3. **純粋関数**: ファクトリメソッドは副作用のない純粋関数
-4. **データとしての製品**: 製品は単なるマップデータ
-
-```plantuml
-@startuml
-title Clojure での Abstract Factory
-
-rectangle "ファクトリ (マップ)" {
-  card "::type" as type
-  card "設定データ" as config
-}
-
-rectangle "make-shape (マルチメソッド)" {
-  card "defmulti" as defmulti
-  card "defmethod (Standard)" as dm1
-  card "defmethod (Outlined)" as dm2
-  card "defmethod (Filled)" as dm3
-}
-
-rectangle "製品 (マップ)" {
-  card "::shape/type" as shapetype
-  card "図形データ" as shapedata
-  card "追加属性" as extra
-}
-
-type --> defmulti : ディスパッチ
-defmulti --> dm1
-defmulti --> dm2
-defmulti --> dm3
-dm1 --> shapetype
-dm2 --> extra
-config --> extra
-@enduml
-```
-
-## まとめ
-
-本章では、Abstract Factory パターンについて学びました：
-
-1. **ファクトリインターフェース**: マルチメソッドによる抽象化
-2. **複数のファクトリ実装**: Standard、Outlined、Filled
-3. **UI ファクトリ**: プラットフォーム別の UI 生成
-4. **ファクトリの交換**: 同じコードで異なる製品群を生成
-
-Abstract Factory パターンは、関連するオブジェクトのファミリーを一貫して生成する必要がある場面で有効です。
-
-## 参考コード
-
-本章のコード例は以下のファイルで確認できます：
-
-- ソースコード: `apps/clojure/part5/src/abstract_factory/`
-- テストコード: `apps/clojure/part5/spec/abstract_factory/`
-
-## 次章予告
-
-次章では、**Abstract Server パターン**について学びます。依存関係の逆転を実現し、モジュール間の疎結合を達成する方法を探ります。