@k2works/claude-code-booster 3.4.1 → 3.6.0

package/lib/assets/docs/article/functional-desgin-ppp/clojure/09-adapter-pattern.md

@@ -1,399 +1,399 @@
-# 第9章: Adapter パターン
-
-## はじめに
-
-Adapter パターンは、既存のクラスのインターフェースを、クライアントが期待する別のインターフェースに変換するパターンです。このパターンを使用すると、互換性のないインターフェースを持つクラス同士を連携させることができます。
-
-本章では、可変強度ライトのアダプターとデータフォーマット変換について学びます。
-
-## 1. パターンの構造
-
-Adapter パターンは以下の要素で構成されます：
-
-- **Target**: クライアントが期待するインターフェース
-- **Adaptee**: 既存のクラス（適応される側）
-- **Adapter**: Target インターフェースを実装し、Adaptee を使用
-
-```plantuml
-@startuml
-skinparam classAttributeIconSize 0
-
-interface "Target" as target {
-  +request()
-}
-
-class "Adaptee" as adaptee {
-  +specificRequest()
-}
-
-class "Adapter" as adapter {
-  +adaptee: Adaptee
-  +request()
-}
-
-class "Client" as client {
-  +operation()
-}
-
-adapter ..|> target
-adapter --> adaptee : adapts
-client --> target : uses
-
-note right of target
-  Targetはクライアントが
-  期待するインターフェースを
-  定義します。
-end note
-
-note right of adaptee
-  Adapteeは既存のクラスで、
-  異なるインターフェースを
-  持っています。
-end note
-
-note right of adapter
-  AdapterはTargetインターフェースを
-  実装し、Adapteeのメソッドを
-  呼び出します。
-end note
-@enduml
-```
-
-## 2. VariableLight の例
-
-### Switchable インターフェース (Target)
-
-```clojure
-(ns adapter-pattern.switchable)
-
-(defmulti turn-on
-  "スイッチをオンにする"
-  :type)
-
-(defmulti turn-off
-  "スイッチをオフにする"
-  :type)
-```
-
-### VariableLight (Adaptee)
-
-可変強度を持つライトは、単純なオン/オフではなく、強度を指定する必要があります。
-
-```clojure
-(ns adapter-pattern.variable-light)
-
-(defn turn-on-light
-  "ライトを指定した強度で点灯する"
-  [intensity]
-  (println (str "VariableLight: intensity set to " intensity))
-  {:intensity intensity})
-```
-
-### VariableLightAdapter (Adapter)
-
-```clojure
-(ns adapter-pattern.variable-light-adapter
-  (:require [adapter-pattern.switchable :as s]
-            [adapter-pattern.variable-light :as vl]))
-
-(defn make-adapter
-  "VariableLight のアダプターを作成する"
-  [min-intensity max-intensity]
-  {:type :variable-light-adapter
-   :min-intensity min-intensity
-   :max-intensity max-intensity})
-
-(defmethod s/turn-on :variable-light-adapter [adapter]
-  (vl/turn-on-light (:max-intensity adapter)))
-
-(defmethod s/turn-off :variable-light-adapter [adapter]
-  (vl/turn-on-light (:min-intensity adapter)))
-```
-
-### クラス図
-
-```plantuml
-@startuml
-skinparam classAttributeIconSize 0
-
-interface "Switchable" as switchable {
-  +turn-on(switchable)
-  +turn-off(switchable)
-}
-
-class "VariableLight" as variableLight {
-  +turn-on-light(intensity)
-}
-
-class "VariableLightAdapter" as adapter {
-  +type: :variable-light-adapter
-  +min-intensity: number
-  +max-intensity: number
-  +turn-on(adapter)
-  +turn-off(adapter)
-}
-
-class "Client" as client {
-  +engage-switch(switchable)
-}
-
-adapter ..|> switchable
-adapter --> variableLight : adapts
-client --> switchable : uses
-
-note right of switchable
-  Switchableはマルチメソッドで
-  定義されたインターフェースで、
-  turn-onとturn-offメソッドを
-  提供します。
-end note
-
-note right of variableLight
-  VariableLightは強度を指定して
-  ライトを点灯させる機能を
-  提供します。
-end note
-
-note right of adapter
-  VariableLightAdapterは
-  Switchableインターフェースを実装し、
-  turn-onとturn-offの呼び出しを
-  適切な強度でのturn-on-light呼び出しに
-  変換します。
-end note
-@enduml
-```
-
-### Client
-
-```clojure
-(ns adapter-pattern.engage-switch
-  (:require [adapter-pattern.switchable :as s]))
-
-(defn engage-switch
-  "スイッチを操作する"
-  [switchable]
-  (println "Engaging switch...")
-  (let [on-result (s/turn-on switchable)
-        off-result (s/turn-off switchable)]
-    {:on-result on-result
-     :off-result off-result}))
-```
-
-### 使用例
-
-```clojure
-(require '[adapter-pattern.variable-light-adapter :as adapter])
-(require '[adapter-pattern.engage-switch :as client])
-
-;; アダプターを作成（最小0、最大100）
-(def vl-adapter (adapter/make-adapter 0 100))
-
-;; クライアントはSwitchableインターフェースで操作
-(client/engage-switch vl-adapter)
-;; Engaging switch...
-;; VariableLight: intensity set to 100
-;; VariableLight: intensity set to 0
-;; => {:on-result {:intensity 100}, :off-result {:intensity 0}}
-```
-
-### シーケンス図
-
-```plantuml
-@startuml
-actor User
-participant "Client\n(engage-switch)" as client
-participant "VariableLightAdapter" as adapter
-participant "VariableLight\n(turn-on-light)" as variableLight
-
-User -> client : engage-switch(adapter)
-activate client
-
-client -> adapter : turn-on(adapter)
-activate adapter
-adapter -> variableLight : turn-on-light(max-intensity)
-activate variableLight
-variableLight --> adapter : {:intensity 100}
-deactivate variableLight
-adapter --> client : {:intensity 100}
-deactivate adapter
-
-client -> adapter : turn-off(adapter)
-activate adapter
-adapter -> variableLight : turn-on-light(min-intensity)
-activate variableLight
-variableLight --> adapter : {:intensity 0}
-deactivate variableLight
-adapter --> client : {:intensity 0}
-deactivate adapter
-
-client --> User : result
-deactivate client
-
-note right
-  アダプターは、Switchableインターフェースの
-  メソッド呼び出しをVariableLightの
-  適切なメソッド呼び出しに変換します
-end note
-@enduml
-```
-
-## 3. データフォーマットアダプター
-
-### ユーザーフォーマット変換
-
-異なるシステム間でデータフォーマットが異なる場合、アダプターを使って変換します。
-
-```clojure
-(ns adapter-pattern.data-format
-  (:require [clojure.string :as str]))
-
-(defn adapt-old-user-to-new
-  "旧ユーザーフォーマットを新フォーマットに変換"
-  [old-user]
-  {:name (str (:lastName old-user) " " (:firstName old-user))
-   :email (:emailAddress old-user)
-   :phone (:phoneNumber old-user)
-   :metadata {:migrated true
-              :original-format :old}})
-
-(defn adapt-new-user-to-old
-  "新ユーザーフォーマットを旧フォーマットに変換"
-  [new-user]
-  (let [name-parts (str/split (:name new-user) #" ")
-        last-name (first name-parts)
-        first-name (if (> (count name-parts) 1)
-                     (second name-parts)
-                     "")]
-    {:firstName first-name
-     :lastName last-name
-     :emailAddress (:email new-user)
-     :phoneNumber (:phone new-user)}))
-```
-
-### 使用例
-
-```clojure
-;; 旧フォーマット → 新フォーマット
-(def old-user {:firstName "太郎"
-               :lastName "山田"
-               :emailAddress "taro@example.com"
-               :phoneNumber "090-1234-5678"})
-
-(adapt-old-user-to-new old-user)
-;; => {:name "山田 太郎"
-;;     :email "taro@example.com"
-;;     :phone "090-1234-5678"
-;;     :metadata {:migrated true, :original-format :old}}
-
-;; 新フォーマット → 旧フォーマット
-(def new-user {:name "山田 太郎"
-               :email "taro@example.com"
-               :phone "090-1234-5678"})
-
-(adapt-new-user-to-old new-user)
-;; => {:firstName "太郎"
-;;     :lastName "山田"
-;;     :emailAddress "taro@example.com"
-;;     :phoneNumber "090-1234-5678"}
-```
-
-### API レスポンスアダプター
-
-```clojure
-(defn adapt-external-api-response
-  "外部API のレスポンスを内部形式に変換"
-  [external-response]
-  {:id (get-in external-response ["data" "identifier"])
-   :name (get-in external-response ["data" "attributes" "name"])
-   :created-at (get-in external-response ["data" "attributes" "createdAt"])
-   :metadata {:source :external-api
-              :original-id (get-in external-response ["data" "id"])}})
-
-(defn adapt-internal-to-external
-  "内部形式を外部API の形式に変換"
-  [internal-data]
-  {"data" {"type" "resource"
-           "id" (str (:id internal-data))
-           "attributes" {"name" (:name internal-data)
-                         "createdAt" (:created-at internal-data)}}})
-```
-
-### データ変換の図
-
-```plantuml
-@startuml
-skinparam classAttributeIconSize 0
-
-package "旧システム" {
-  class "OldUserFormat" as old {
-    +firstName: String
-    +lastName: String
-    +emailAddress: String
-    +phoneNumber: String
-  }
-}
-
-package "新システム" {
-  class "NewUserFormat" as new {
-    +name: String
-    +email: String
-    +phone: String
-    +metadata: Map
-  }
-}
-
-class "UserFormatAdapter" as adapter {
-  +adapt-old-user-to-new(old)
-  +adapt-new-user-to-old(new)
-}
-
-old --> adapter : input
-adapter --> new : output
-new --> adapter : input
-adapter --> old : output
-
-note right of adapter
-  アダプターは双方向の変換を
-  提供し、新旧システム間の
-  互換性を確保します
-end note
-@enduml
-```
-
-## 4. パターンの利点
-
-1. **既存コードの再利用**: 既存のクラスを変更せずに新しいインターフェースで使用
-2. **単一責任の原則**: インターフェース変換のロジックを分離
-3. **開放/閉鎖の原則**: 新しいアダプターを追加しても既存コードは変更不要
-4. **レガシーシステムとの統合**: 古いシステムと新しいシステムを連携
-
-## 5. 関数型プログラミングでの特徴
-
-Clojure での Adapter パターンの実装には以下の特徴があります：
-
-1. **マルチメソッド**: ディスパッチ関数で型に基づいた多態性を実現
-2. **関数による変換**: 単純なデータ変換は関数で直接実装
-3. **イミュータブルなデータ**: 変換後も元のデータは変更されない
-4. **合成のしやすさ**: 複数のアダプターを組み合わせ可能
-
-## まとめ
-
-本章では、Adapter パターンについて学びました：
-
-1. **VariableLightAdapter**: 可変強度ライトを単純なオン/オフインターフェースに適応
-2. **データフォーマットアダプター**: 異なるデータ形式間の変換
-3. **マルチメソッド**: Clojure でのインターフェース適応
-
-Adapter パターンは、既存のコードを変更せずに異なるシステムを連携させる際に非常に有効です。
-
-## 参考コード
-
-本章のコード例は以下のファイルで確認できます：
-
-- ソースコード: `apps/clojure/part3/src/adapter_pattern/`
-- テストコード: `apps/clojure/part3/spec/adapter_pattern/`
-
-## 次章予告
-
-次章では、**Facade パターン**について学びます。複雑なサブシステムへのシンプルなインターフェースを提供する方法を探ります。
+# 第9章: Adapter パターン
+
+## はじめに
+
+Adapter パターンは、既存のクラスのインターフェースを、クライアントが期待する別のインターフェースに変換するパターンです。このパターンを使用すると、互換性のないインターフェースを持つクラス同士を連携させることができます。
+
+本章では、可変強度ライトのアダプターとデータフォーマット変換について学びます。
+
+## 1. パターンの構造
+
+Adapter パターンは以下の要素で構成されます：
+
+- **Target**: クライアントが期待するインターフェース
+- **Adaptee**: 既存のクラス（適応される側）
+- **Adapter**: Target インターフェースを実装し、Adaptee を使用
+
+```plantuml
+@startuml
+skinparam classAttributeIconSize 0
+
+interface "Target" as target {
+  +request()
+}
+
+class "Adaptee" as adaptee {
+  +specificRequest()
+}
+
+class "Adapter" as adapter {
+  +adaptee: Adaptee
+  +request()
+}
+
+class "Client" as client {
+  +operation()
+}
+
+adapter ..|> target
+adapter --> adaptee : adapts
+client --> target : uses
+
+note right of target
+  Targetはクライアントが
+  期待するインターフェースを
+  定義します。
+end note
+
+note right of adaptee
+  Adapteeは既存のクラスで、
+  異なるインターフェースを
+  持っています。
+end note
+
+note right of adapter
+  AdapterはTargetインターフェースを
+  実装し、Adapteeのメソッドを
+  呼び出します。
+end note
+@enduml
+```
+
+## 2. VariableLight の例
+
+### Switchable インターフェース (Target)
+
+```clojure
+(ns adapter-pattern.switchable)
+
+(defmulti turn-on
+  "スイッチをオンにする"
+  :type)
+
+(defmulti turn-off
+  "スイッチをオフにする"
+  :type)
+```
+
+### VariableLight (Adaptee)
+
+可変強度を持つライトは、単純なオン/オフではなく、強度を指定する必要があります。
+
+```clojure
+(ns adapter-pattern.variable-light)
+
+(defn turn-on-light
+  "ライトを指定した強度で点灯する"
+  [intensity]
+  (println (str "VariableLight: intensity set to " intensity))
+  {:intensity intensity})
+```
+
+### VariableLightAdapter (Adapter)
+
+```clojure
+(ns adapter-pattern.variable-light-adapter
+  (:require [adapter-pattern.switchable :as s]
+            [adapter-pattern.variable-light :as vl]))
+
+(defn make-adapter
+  "VariableLight のアダプターを作成する"
+  [min-intensity max-intensity]
+  {:type :variable-light-adapter
+   :min-intensity min-intensity
+   :max-intensity max-intensity})
+
+(defmethod s/turn-on :variable-light-adapter [adapter]
+  (vl/turn-on-light (:max-intensity adapter)))
+
+(defmethod s/turn-off :variable-light-adapter [adapter]
+  (vl/turn-on-light (:min-intensity adapter)))
+```
+
+### クラス図
+
+```plantuml
+@startuml
+skinparam classAttributeIconSize 0
+
+interface "Switchable" as switchable {
+  +turn-on(switchable)
+  +turn-off(switchable)
+}
+
+class "VariableLight" as variableLight {
+  +turn-on-light(intensity)
+}
+
+class "VariableLightAdapter" as adapter {
+  +type: :variable-light-adapter
+  +min-intensity: number
+  +max-intensity: number
+  +turn-on(adapter)
+  +turn-off(adapter)
+}
+
+class "Client" as client {
+  +engage-switch(switchable)
+}
+
+adapter ..|> switchable
+adapter --> variableLight : adapts
+client --> switchable : uses
+
+note right of switchable
+  Switchableはマルチメソッドで
+  定義されたインターフェースで、
+  turn-onとturn-offメソッドを
+  提供します。
+end note
+
+note right of variableLight
+  VariableLightは強度を指定して
+  ライトを点灯させる機能を
+  提供します。
+end note
+
+note right of adapter
+  VariableLightAdapterは
+  Switchableインターフェースを実装し、
+  turn-onとturn-offの呼び出しを
+  適切な強度でのturn-on-light呼び出しに
+  変換します。
+end note
+@enduml
+```
+
+### Client
+
+```clojure
+(ns adapter-pattern.engage-switch
+  (:require [adapter-pattern.switchable :as s]))
+
+(defn engage-switch
+  "スイッチを操作する"
+  [switchable]
+  (println "Engaging switch...")
+  (let [on-result (s/turn-on switchable)
+        off-result (s/turn-off switchable)]
+    {:on-result on-result
+     :off-result off-result}))
+```
+
+### 使用例
+
+```clojure
+(require '[adapter-pattern.variable-light-adapter :as adapter])
+(require '[adapter-pattern.engage-switch :as client])
+
+;; アダプターを作成（最小0、最大100）
+(def vl-adapter (adapter/make-adapter 0 100))
+
+;; クライアントはSwitchableインターフェースで操作
+(client/engage-switch vl-adapter)
+;; Engaging switch...
+;; VariableLight: intensity set to 100
+;; VariableLight: intensity set to 0
+;; => {:on-result {:intensity 100}, :off-result {:intensity 0}}
+```
+
+### シーケンス図
+
+```plantuml
+@startuml
+actor User
+participant "Client\n(engage-switch)" as client
+participant "VariableLightAdapter" as adapter
+participant "VariableLight\n(turn-on-light)" as variableLight
+
+User -> client : engage-switch(adapter)
+activate client
+
+client -> adapter : turn-on(adapter)
+activate adapter
+adapter -> variableLight : turn-on-light(max-intensity)
+activate variableLight
+variableLight --> adapter : {:intensity 100}
+deactivate variableLight
+adapter --> client : {:intensity 100}
+deactivate adapter
+
+client -> adapter : turn-off(adapter)
+activate adapter
+adapter -> variableLight : turn-on-light(min-intensity)
+activate variableLight
+variableLight --> adapter : {:intensity 0}
+deactivate variableLight
+adapter --> client : {:intensity 0}
+deactivate adapter
+
+client --> User : result
+deactivate client
+
+note right
+  アダプターは、Switchableインターフェースの
+  メソッド呼び出しをVariableLightの
+  適切なメソッド呼び出しに変換します
+end note
+@enduml
+```
+
+## 3. データフォーマットアダプター
+
+### ユーザーフォーマット変換
+
+異なるシステム間でデータフォーマットが異なる場合、アダプターを使って変換します。
+
+```clojure
+(ns adapter-pattern.data-format
+  (:require [clojure.string :as str]))
+
+(defn adapt-old-user-to-new
+  "旧ユーザーフォーマットを新フォーマットに変換"
+  [old-user]
+  {:name (str (:lastName old-user) " " (:firstName old-user))
+   :email (:emailAddress old-user)
+   :phone (:phoneNumber old-user)
+   :metadata {:migrated true
+              :original-format :old}})
+
+(defn adapt-new-user-to-old
+  "新ユーザーフォーマットを旧フォーマットに変換"
+  [new-user]
+  (let [name-parts (str/split (:name new-user) #" ")
+        last-name (first name-parts)
+        first-name (if (> (count name-parts) 1)
+                     (second name-parts)
+                     "")]
+    {:firstName first-name
+     :lastName last-name
+     :emailAddress (:email new-user)
+     :phoneNumber (:phone new-user)}))
+```
+
+### 使用例
+
+```clojure
+;; 旧フォーマット → 新フォーマット
+(def old-user {:firstName "太郎"
+               :lastName "山田"
+               :emailAddress "taro@example.com"
+               :phoneNumber "090-1234-5678"})
+
+(adapt-old-user-to-new old-user)
+;; => {:name "山田 太郎"
+;;     :email "taro@example.com"
+;;     :phone "090-1234-5678"
+;;     :metadata {:migrated true, :original-format :old}}
+
+;; 新フォーマット → 旧フォーマット
+(def new-user {:name "山田 太郎"
+               :email "taro@example.com"
+               :phone "090-1234-5678"})
+
+(adapt-new-user-to-old new-user)
+;; => {:firstName "太郎"
+;;     :lastName "山田"
+;;     :emailAddress "taro@example.com"
+;;     :phoneNumber "090-1234-5678"}
+```
+
+### API レスポンスアダプター
+
+```clojure
+(defn adapt-external-api-response
+  "外部API のレスポンスを内部形式に変換"
+  [external-response]
+  {:id (get-in external-response ["data" "identifier"])
+   :name (get-in external-response ["data" "attributes" "name"])
+   :created-at (get-in external-response ["data" "attributes" "createdAt"])
+   :metadata {:source :external-api
+              :original-id (get-in external-response ["data" "id"])}})
+
+(defn adapt-internal-to-external
+  "内部形式を外部API の形式に変換"
+  [internal-data]
+  {"data" {"type" "resource"
+           "id" (str (:id internal-data))
+           "attributes" {"name" (:name internal-data)
+                         "createdAt" (:created-at internal-data)}}})
+```
+
+### データ変換の図
+
+```plantuml
+@startuml
+skinparam classAttributeIconSize 0
+
+package "旧システム" {
+  class "OldUserFormat" as old {
+    +firstName: String
+    +lastName: String
+    +emailAddress: String
+    +phoneNumber: String
+  }
+}
+
+package "新システム" {
+  class "NewUserFormat" as new {
+    +name: String
+    +email: String
+    +phone: String
+    +metadata: Map
+  }
+}
+
+class "UserFormatAdapter" as adapter {
+  +adapt-old-user-to-new(old)
+  +adapt-new-user-to-old(new)
+}
+
+old --> adapter : input
+adapter --> new : output
+new --> adapter : input
+adapter --> old : output
+
+note right of adapter
+  アダプターは双方向の変換を
+  提供し、新旧システム間の
+  互換性を確保します
+end note
+@enduml
+```
+
+## 4. パターンの利点
+
+1. **既存コードの再利用**: 既存のクラスを変更せずに新しいインターフェースで使用
+2. **単一責任の原則**: インターフェース変換のロジックを分離
+3. **開放/閉鎖の原則**: 新しいアダプターを追加しても既存コードは変更不要
+4. **レガシーシステムとの統合**: 古いシステムと新しいシステムを連携
+
+## 5. 関数型プログラミングでの特徴
+
+Clojure での Adapter パターンの実装には以下の特徴があります：
+
+1. **マルチメソッド**: ディスパッチ関数で型に基づいた多態性を実現
+2. **関数による変換**: 単純なデータ変換は関数で直接実装
+3. **イミュータブルなデータ**: 変換後も元のデータは変更されない
+4. **合成のしやすさ**: 複数のアダプターを組み合わせ可能
+
+## まとめ
+
+本章では、Adapter パターンについて学びました：
+
+1. **VariableLightAdapter**: 可変強度ライトを単純なオン/オフインターフェースに適応
+2. **データフォーマットアダプター**: 異なるデータ形式間の変換
+3. **マルチメソッド**: Clojure でのインターフェース適応
+
+Adapter パターンは、既存のコードを変更せずに異なるシステムを連携させる際に非常に有効です。
+
+## 参考コード
+
+本章のコード例は以下のファイルで確認できます：
+
+- ソースコード: `apps/clojure/part3/src/adapter_pattern/`
+- テストコード: `apps/clojure/part3/spec/adapter_pattern/`
+
+## 次章予告
+
+次章では、**Facade パターン**について学びます。複雑なサブシステムへのシンプルなインターフェースを提供する方法を探ります。