@k2works/claude-code-booster 3.0.0 → 3.1.0

package/lib/assets/docs/article/functional-desgin-ppp/clojure/10-strategy-pattern.md

@@ -0,0 +1,485 @@
+# 第10章: Strategy パターン
+
+## はじめに
+
+Strategy パターンは、アルゴリズムをカプセル化し、それらを交換可能にするパターンです。このパターンを使用すると、アルゴリズムをクライアントから独立して変更できます。
+
+本章では、料金計算と配送料金の例を通じて、マルチメソッドと高階関数による Strategy パターンの実装を学びます。
+
+## 1. パターンの構造
+
+Strategy パターンは以下の要素で構成されます：
+
+- **Strategy**: アルゴリズムのインターフェース
+- **ConcreteStrategy**: 具体的なアルゴリズムの実装
+- **Context**: Strategy を使用するクライアント
+
+```plantuml
+@startuml
+skinparam classAttributeIconSize 0
+
+interface "Strategy" as strategy {
+  +algorithm(data)
+}
+
+class "ConcreteStrategyA" as strategyA {
+  +algorithm(data)
+}
+
+class "ConcreteStrategyB" as strategyB {
+  +algorithm(data)
+}
+
+class "ConcreteStrategyC" as strategyC {
+  +algorithm(data)
+}
+
+class "Context" as context {
+  +strategy: Strategy
+  +executeStrategy(data)
+}
+
+strategyA ..|> strategy
+strategyB ..|> strategy
+strategyC ..|> strategy
+context --> strategy : uses
+
+note right of strategy
+  Strategyはアルゴリズムの
+  インターフェースを定義します。
+end note
+
+note right of context
+  Contextは戦略を保持し、
+  実行時に適切な戦略を
+  使用します。
+end note
+@enduml
+```
+
+## 2. 料金計算の例
+
+### Strategy インターフェース
+
+```clojure
+(ns strategy-pattern.pricing)
+
+(defmulti calculate-price
+  "料金を計算する"
+  (fn [strategy _amount] (:type strategy)))
+```
+
+### ConcreteStrategy: 通常料金
+
+```clojure
+(defn make-regular-pricing
+  "通常料金戦略を作成"
+  []
+  {:type :regular})
+
+(defmethod calculate-price :regular [_strategy amount]
+  amount)
+```
+
+### ConcreteStrategy: 割引料金
+
+```clojure
+(defn make-discount-pricing
+  "割引料金戦略を作成"
+  [discount-rate]
+  {:type :discount
+   :discount-rate discount-rate})
+
+(defmethod calculate-price :discount [strategy amount]
+  (let [rate (:discount-rate strategy)]
+    (* amount (- 1.0 rate))))
+```
+
+### ConcreteStrategy: 会員料金
+
+```clojure
+(defn make-member-pricing
+  "会員料金戦略を作成"
+  [member-level]
+  {:type :member
+   :member-level member-level})
+
+(defmethod calculate-price :member [strategy amount]
+  (let [level (:member-level strategy)
+        rate (case level
+               :gold 0.20
+               :silver 0.15
+               :bronze 0.10
+               0.0)]
+    (* amount (- 1.0 rate))))
+```
+
+### クラス図
+
+```plantuml
+@startuml
+skinparam classAttributeIconSize 0
+
+interface "Pricing Strategy" as pricing {
+  +calculate-price(strategy, amount)
+}
+
+class "RegularPricing" as regular {
+  +type: :regular
+  +calculate-price(strategy, amount)
+}
+
+class "DiscountPricing" as discount {
+  +type: :discount
+  +discount-rate: number
+  +calculate-price(strategy, amount)
+}
+
+class "MemberPricing" as member {
+  +type: :member
+  +member-level: keyword
+  +calculate-price(strategy, amount)
+}
+
+class "BulkPricing" as bulk {
+  +type: :bulk
+  +threshold: number
+  +bulk-discount: number
+  +calculate-price(strategy, order)
+}
+
+class "ShoppingCart" as cart {
+  +items: vector
+  +strategy: PricingStrategy
+  +cart-total()
+  +add-item(item)
+  +change-strategy(strategy)
+}
+
+regular ..|> pricing
+discount ..|> pricing
+member ..|> pricing
+bulk ..|> pricing
+cart --> pricing : uses
+
+note right of pricing
+  マルチメソッドで定義された
+  料金計算のインターフェースです。
+end note
+
+note right of cart
+  Contextとして戦略を保持し、
+  実行時に料金計算を委譲します。
+end note
+@enduml
+```
+
+### 使用例
+
+```clojure
+(require '[strategy-pattern.pricing :as pricing])
+
+;; 通常料金
+(def regular (pricing/make-regular-pricing))
+(pricing/calculate-price regular 1000)
+;; => 1000
+
+;; 10%割引
+(def discount (pricing/make-discount-pricing 0.10))
+(pricing/calculate-price discount 1000)
+;; => 900.0
+
+;; ゴールド会員料金
+(def gold (pricing/make-member-pricing :gold))
+(pricing/calculate-price gold 1000)
+;; => 800.0
+```
+
+## 3. Context: ショッピングカート
+
+### 実装
+
+```clojure
+(ns strategy-pattern.context
+  (:require [strategy-pattern.pricing :as pricing]))
+
+(defn make-cart
+  "ショッピングカートを作成"
+  [items pricing-strategy]
+  {:items items
+   :strategy pricing-strategy})
+
+(defn cart-total
+  "カートの合計金額を計算"
+  [cart]
+  (let [items (:items cart)
+        strategy (:strategy cart)
+        subtotal (reduce + (map :price items))]
+    (pricing/calculate-price strategy subtotal)))
+
+(defn change-strategy
+  "料金戦略を変更"
+  [cart new-strategy]
+  (assoc cart :strategy new-strategy))
+```
+
+### シーケンス図
+
+```plantuml
+@startuml
+actor User
+participant "ShoppingCart" as cart
+participant "PricingStrategy" as strategy
+
+User -> cart : make-cart(items, strategy)
+activate cart
+cart --> User : cart
+
+User -> cart : cart-total()
+activate cart
+cart -> cart : calculate subtotal
+cart -> strategy : calculate-price(strategy, subtotal)
+activate strategy
+strategy --> cart : discounted price
+deactivate strategy
+cart --> User : total
+deactivate cart
+
+User -> cart : change-strategy(new-strategy)
+activate cart
+cart --> User : updated cart
+deactivate cart
+
+note right
+  戦略を変更しても
+  カートのインターフェースは
+  変わりません
+end note
+@enduml
+```
+
+### 使用例
+
+```clojure
+(require '[strategy-pattern.context :as ctx])
+(require '[strategy-pattern.pricing :as pricing])
+
+;; カートを作成
+(def items [{:name "Item A" :price 500}
+            {:name "Item B" :price 500}])
+
+(def cart (ctx/make-cart items (pricing/make-regular-pricing)))
+(ctx/cart-total cart)
+;; => 1000
+
+;; 戦略を変更
+(def discounted-cart (ctx/change-strategy cart (pricing/make-member-pricing :gold)))
+(ctx/cart-total discounted-cart)
+;; => 800.0
+```
+
+## 4. 関数型アプローチ
+
+Clojure では、関数を第一級オブジェクトとして扱えるため、より簡潔に Strategy パターンを実装できます。
+
+### 関数による Strategy
+
+```clojure
+(ns strategy-pattern.functional-strategy)
+
+(defn apply-pricing
+  "料金戦略を適用"
+  [strategy-fn amount]
+  (strategy-fn amount))
+
+;; 戦略関数の定義
+(def regular-pricing identity)
+
+(defn discount-pricing
+  "割引戦略を作成"
+  [rate]
+  (fn [amount]
+    (* amount (- 1.0 rate))))
+
+(defn member-pricing
+  "会員戦略を作成"
+  [level]
+  (let [rate (case level
+               :gold 0.20
+               :silver 0.15
+               :bronze 0.10
+               0.0)]
+    (fn [amount]
+      (* amount (- 1.0 rate)))))
+```
+
+### 戦略の合成
+
+関数型アプローチの大きな利点は、戦略を簡単に合成できることです。
+
+```clojure
+(defn compose-strategies
+  "複数の戦略を合成"
+  [& strategies]
+  (fn [amount]
+    (reduce (fn [a strategy] (strategy a)) amount strategies)))
+
+(defn tax-strategy
+  "税金戦略を作成"
+  [tax-rate]
+  (fn [amount]
+    (* amount (+ 1.0 tax-rate))))
+
+;; 使用例：割引後に税金を適用
+(def discount (discount-pricing 0.10))
+(def tax (tax-strategy 0.08))
+(def final-price (compose-strategies discount tax))
+
+(apply-pricing final-price 1000)
+;; => 972.0  (1000 * 0.9 * 1.08)
+```
+
+### 条件付き戦略
+
+```clojure
+(defn conditional-strategy
+  "条件付き戦略"
+  [pred then-strategy else-strategy]
+  (fn [amount]
+    (if (pred amount)
+      (then-strategy amount)
+      (else-strategy amount))))
+
+;; 5000円以上で20%割引
+(def high-value-discount
+  (conditional-strategy
+    #(>= % 5000)
+    (discount-pricing 0.20)
+    regular-pricing))
+
+(apply-pricing high-value-discount 6000)
+;; => 4800.0
+
+(apply-pricing high-value-discount 3000)
+;; => 3000
+```
+
+### 関数型アプローチの図
+
+```plantuml
+@startuml
+skinparam classAttributeIconSize 0
+
+package "関数型 Strategy" {
+  object "regular-pricing" as regular {
+    identity関数
+  }
+
+  object "discount-pricing" as discount {
+    (fn [amount] (* amount (- 1.0 rate)))
+  }
+
+  object "member-pricing" as member {
+    (fn [amount] (* amount (- 1.0 member-rate)))
+  }
+
+  object "tax-strategy" as tax {
+    (fn [amount] (* amount (+ 1.0 tax-rate)))
+  }
+}
+
+package "合成" {
+  object "compose-strategies" as compose {
+    戦略1 → 戦略2 → ... → 結果
+  }
+
+  object "conditional-strategy" as cond {
+    条件 ? 戦略A : 戦略B
+  }
+}
+
+discount --> compose
+tax --> compose
+regular --> cond
+discount --> cond
+
+note right of compose
+  複数の戦略を
+  パイプラインとして
+  合成できます
+end note
+
+note right of cond
+  条件に応じて
+  異なる戦略を
+  適用できます
+end note
+@enduml
+```
+
+## 5. 配送料金の例
+
+Strategy パターンは配送料金計算にも適用できます。
+
+```clojure
+(defmulti calculate-shipping
+  "配送料金を計算"
+  (fn [strategy _weight _distance] (:type strategy)))
+
+(defn make-standard-shipping []
+  {:type :standard-shipping})
+
+(defmethod calculate-shipping :standard-shipping [_strategy weight distance]
+  (+ (* weight 10) (* distance 5)))
+
+(defn make-express-shipping []
+  {:type :express-shipping})
+
+(defmethod calculate-shipping :express-shipping [_strategy weight distance]
+  (+ (* weight 20) (* distance 15)))
+
+(defn make-free-shipping [min-order-amount]
+  {:type :free-shipping
+   :min-order-amount min-order-amount})
+
+(defmethod calculate-shipping :free-shipping [_strategy _weight _distance]
+  0)
+```
+
+## 6. パターンの利点
+
+1. **アルゴリズムの交換**: 実行時に戦略を変更可能
+2. **開放/閉鎖の原則**: 新しい戦略を追加しても既存コードは変更不要
+3. **条件分岐の排除**: if/switch 文の代わりにポリモーフィズムを使用
+4. **テストの容易さ**: 各戦略を独立してテスト可能
+
+## 7. 関数型プログラミングでの特徴
+
+Clojure での Strategy パターンの実装には以下の特徴があります：
+
+1. **マルチメソッド**: 型に基づいたディスパッチで多態性を実現
+2. **高階関数**: 関数を戦略として直接渡すことができる
+3. **関数合成**: 複数の戦略を簡単に組み合わせ可能
+4. **イミュータブル**: 戦略の変更は新しいデータ構造を返す
+
+## まとめ
+
+本章では、Strategy パターンについて学びました：
+
+1. **マルチメソッド版**: 型ベースのディスパッチによる実装
+2. **関数型版**: 高階関数による簡潔な実装
+3. **戦略の合成**: 複数の戦略を組み合わせる方法
+4. **Context**: 戦略を使用するクライアントの実装
+
+Strategy パターンは、アルゴリズムを柔軟に交換する必要がある場面で非常に有効です。
+
+## 参考コード
+
+本章のコード例は以下のファイルで確認できます：
+
+- ソースコード: `apps/clojure/part4/src/strategy_pattern/`
+- テストコード: `apps/clojure/part4/spec/strategy_pattern/`
+
+## 次章予告
+
+次章では、**Command パターン**について学びます。コマンドをデータとして表現し、バッチ処理や Undo 機能を実装する方法を探ります。