@k2works/claude-code-booster 4.4.2 → 4.6.0

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

@@ -1,475 +1,475 @@
-# 第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 パターン**について学びます。依存関係の逆転を実現し、モジュール間の疎結合を達成する方法を探ります。
+# 第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 パターン**について学びます。依存関係の逆転を実現し、モジュール間の疎結合を達成する方法を探ります。