@k2works/claude-code-booster 6.1.0 → 6.3.0

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

@@ -1,494 +0,0 @@
----
-type: Article
-title: "第10章: Strategy パターン"
-description: "Strategy パターンは、アルゴリズムをカプセル化し、それらを交換可能にするパターンです。"
-tags: [article, functional-desgin-ppp, clojure]
-status: stable
-generated: { by: human:kakimomokuri, at: 2026-03-24T05:22:28Z }
----
-
-# 第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 機能を実装する方法を探ります。