@k2works/claude-code-booster 6.1.0 → 6.3.0

package/lib/assets/docs/article/functional-desgin-ppp/clojure/22-oo-to-fp-migration.md

@@ -1,541 +0,0 @@
----
-type: Article
-title: "第22章: オブジェクト指向から関数型への移行"
-description: "本章では、オブジェクト指向（OO）スタイルのコードを関数型（FP）スタイルに移行するための戦略とテクニックを解説します。"
-tags: [article, functional-desgin-ppp, clojure]
-status: stable
-generated: { by: human:kakimomokuri, at: 2026-03-27T04:43:33Z }
----
-
-# 第22章: オブジェクト指向から関数型への移行
-
-## 1. はじめに
-
-本章では、オブジェクト指向（OO）スタイルのコードを関数型（FP）スタイルに移行するための戦略とテクニックを解説します。段階的なアプローチにより、既存のコードベースを安全に関数型に移行できます。
-
-### 学習目標
-
-- OO と FP の根本的な違いを理解する
-- 段階的な移行戦略を学ぶ
-- 実践的なリファクタリングパターンを習得する
-
-## 2. OO と FP の対比
-
-### 2.1 パラダイムの違い
-
-```plantuml
-@startuml
-title OO vs FP
-
-rectangle "オブジェクト指向" as oo {
-  card "オブジェクト" as obj
-  card "メソッド" as method
-  card "可変状態" as mutable
-  card "継承" as inherit
-}
-
-rectangle "関数型" as fp {
-  card "データ" as data
-  card "関数" as func
-  card "不変性" as immutable
-  card "合成" as compose
-}
-
-obj --> data : 変換
-method --> func : 変換
-mutable --> immutable : 変換
-inherit --> compose : 変換
-@enduml
-```
-
-| 概念 | オブジェクト指向 | 関数型 |
-|-----|----------------|-------|
-| 基本単位 | オブジェクト | データ + 関数 |
-| 状態管理 | 可変（mutable） | 不変（immutable） |
-| 多態性 | 継承・インターフェース | マルチメソッド・プロトコル |
-| コード再利用 | 継承 | 関数合成 |
-| 副作用 | どこでも可能 | 境界に分離 |
-
-### 2.2 OO スタイルの例
-
-```clojure
-(ns oo-to-fp.oo-style)
-
-;; OOスタイル: 内部状態を持つオブジェクト
-(defn make-account-oo [id initial-balance]
-  (let [state (atom {:id id
-                     :balance initial-balance
-                     :transactions []})]
-    {:get-id (fn [] (:id @state))
-     :get-balance (fn [] (:balance @state))
-     :deposit (fn [amount]
-                (when (pos? amount)
-                  (swap! state update :balance + amount)
-                  (swap! state update :transactions conj
-                         {:type :deposit :amount amount})
-                  (:balance @state)))
-     :withdraw (fn [amount]
-                 (when (and (pos? amount)
-                            (>= (:balance @state) amount))
-                   (swap! state update :balance - amount)
-                   (swap! state update :transactions conj
-                          {:type :withdrawal :amount amount})
-                   (:balance @state)))}))
-
-;; 使用例
-;; (def acc (make-account-oo "A001" 1000))
-;; ((:deposit acc) 500)   ;; => 1500
-;; ((:withdraw acc) 200)  ;; => 1300
-```
-
-**問題点**:
-
-
-- 内部状態が可変
-- テストが困難（状態に依存）
-- 履歴の追跡が難しい
-
-### 2.3 FP スタイルへの変換
-
-```clojure
-(ns oo-to-fp.fp-style)
-
-;; FPスタイル: プレーンなデータ + 純粋関数
-(defn make-account [id initial-balance]
-  {:id id
-   :balance initial-balance
-   :transactions []})
-
-(defn get-balance [account]
-  (:balance account))
-
-(defn deposit [account amount]
-  (if (pos? amount)
-    (-> account
-        (update :balance + amount)
-        (update :transactions conj {:type :deposit :amount amount}))
-    account))
-
-(defn withdraw [account amount]
-  (if (and (pos? amount)
-           (>= (:balance account) amount))
-    (-> account
-        (update :balance - amount)
-        (update :transactions conj {:type :withdrawal :amount amount}))
-    account))
-
-;; 使用例
-;; (def acc (make-account "A001" 1000))
-;; (def acc2 (deposit acc 500))   ;; acc は変更されない
-;; (def acc3 (withdraw acc2 200)) ;; acc2 も変更されない
-```
-
-**利点**:
-
-
-- 元のデータは不変
-- テストが容易（入力 → 出力）
-- 完全な履歴を保持
-
-## 3. 移行戦略
-
-### 3.1 Strangler Fig パターン
-
-古いコードを徐々に新しいコードで「絞め殺す」パターン。
-
-```plantuml
-@startuml
-title Strangler Fig パターン
-
-rectangle "フェーズ1" {
-  [古いOOコード] as old1
-  [新しいFPコード] as new1
-  old1 -[#red,bold]-> new1 : 一部移行
-}
-
-rectangle "フェーズ2" {
-  [古いOOコード] as old2
-  [新しいFPコード] as new2
-  old2 -[#red,bold]-> new2 : 移行進行
-  note right of new2 : FPコードが増加
-}
-
-rectangle "フェーズ3" {
-  [新しいFPコード] as new3
-  note right of new3 : 完全移行
-}
-
-フェーズ1 --> フェーズ2
-フェーズ2 --> フェーズ3
-@enduml
-```
-
-```clojure
-(defn create-account-strangler [id initial-balance use-fp?]
-  (if use-fp?
-    ;; 新しいFPスタイル
-    {:style :fp
-     :data (fp/make-account id initial-balance)}
-    ;; 古いOOスタイル（互換性のため）
-    {:style :oo
-     :data {:id id :balance initial-balance :transactions []}}))
-
-(defn account-deposit [account amount]
-  (if (= :fp (:style account))
-    (update account :data fp/deposit amount)
-    ;; OOスタイルも同じインターフェースで処理
-    (update account :data
-            (fn [data]
-              (-> data
-                  (update :balance + amount)
-                  (update :transactions conj {:type :deposit :amount amount}))))))
-```
-
-### 3.2 アダプターパターン
-
-古いインターフェースを維持しながら、内部実装を FP に移行。
-
-```clojure
-(defprotocol AccountOperations
-  (get-account-balance [this])
-  (deposit-to-account [this amount])
-  (withdraw-from-account [this amount]))
-
-;; FPスタイルのアダプター
-(defrecord FPAccountAdapter [account-atom]
-  AccountOperations
-  (get-account-balance [_]
-    (:balance @account-atom))
-  (deposit-to-account [_ amount]
-    (swap! account-atom fp/deposit amount)
-    (:balance @account-atom))
-  (withdraw-from-account [_ amount]
-    (swap! account-atom fp/withdraw amount)
-    (:balance @account-atom)))
-
-(defn make-fp-account-adapter [id initial-balance]
-  (->FPAccountAdapter (atom (fp/make-account id initial-balance))))
-```
-
-**使用例**:
-```clojure
-(let [adapter (make-fp-account-adapter "A001" 1000)]
-  (deposit-to-account adapter 500)
-  (get-account-balance adapter))  ;; => 1500
-```
-
-### 3.3 イベントソーシング移行
-
-状態をイベントの履歴として表現。
-
-```clojure
-(defn account-event [event-type data]
-  {:event-type event-type
-   :data data
-   :timestamp (System/currentTimeMillis)})
-
-(defn apply-event [account event]
-  (case (:event-type event)
-    :created (merge account (:data event))
-    :deposited (fp/deposit account (:amount (:data event)))
-    :withdrawn (fp/withdraw account (:amount (:data event)))
-    account))
-
-(defn replay-events [events]
-  (reduce apply-event {} events))
-
-;; 既存データからイベントへの変換
-(defn migrate-to-event-sourcing [account]
-  (let [creation-event (account-event :created
-                                      {:id (:id account)
-                                       :balance 0
-                                       :transactions []})
-        transaction-events (map (fn [tx]
-                                  (account-event
-                                   (if (= :deposit (:type tx))
-                                     :deposited
-                                     :withdrawn)
-                                   tx))
-                                (:transactions account))]
-    (cons creation-event transaction-events)))
-```
-
-**利点**:
-
-
-- 完全な監査証跡
-- 任意の時点の状態を再構築可能
-- デバッグが容易
-
-### 3.4 段階的な関数抽出
-
-副作用を含むコードから純粋ロジックを段階的に抽出。
-
-```plantuml
-@startuml
-title 段階的な関数抽出
-
-state "Step 1: 識別" as s1 {
-  s1 : 副作用を含むコードを識別
-}
-
-state "Step 2: 抽出" as s2 {
-  s2 : 計算ロジックを純粋関数に抽出
-}
-
-state "Step 3: 分離" as s3 {
-  s3 : 副作用を境界に移動
-}
-
-state "Step 4: テスト" as s4 {
-  s4 : 純粋関数をテスト
-}
-
-[*] --> s1
-s1 --> s2
-s2 --> s3
-s3 --> s4
-s4 --> [*]
-@enduml
-```
-
-```clojure
-;; Step 1: 計算ロジックを純粋関数に抽出
-(defn calculate-interest [balance rate days]
-  (* balance rate (/ days 365.0)))
-
-(defn calculate-fee [balance fee-structure]
-  (cond
-    (< balance (:minimum-balance fee-structure))
-    (:low-balance-fee fee-structure)
-
-    (> balance (:premium-threshold fee-structure))
-    0
-
-    :else
-    (:standard-fee fee-structure)))
-
-;; Step 2: 業務ルールを純粋関数として表現
-(defn can-withdraw? [account amount overdraft-limit]
-  (>= (+ (:balance account) overdraft-limit) amount))
-
-(defn calculate-new-balance [current-balance operation amount]
-  (case operation
-    :deposit (+ current-balance amount)
-    :withdraw (- current-balance amount)
-    current-balance))
-
-;; Step 3: 副作用を境界に押し出す
-(defn process-transaction [account operation amount rules]
-  (let [{:keys [overdraft-limit]} rules
-        can-process? (case operation
-                       :deposit true
-                       :withdraw (can-withdraw? account amount overdraft-limit))]
-    (if can-process?
-      {:success true
-       :account (-> account
-                    (update :balance calculate-new-balance operation amount)
-                    (update :transactions conj {:type operation :amount amount}))}
-      {:success false
-       :account account
-       :error "Insufficient funds"})))
-```
-
-## 4. マルチメソッドによる多態性
-
-### 4.1 継承からマルチメソッドへ
-
-```clojure
-;; FPスタイル: マルチメソッドで多態性を実現
-(defn make-circle [x y radius]
-  {:type :circle :x x :y y :radius radius})
-
-(defn make-rectangle [x y width height]
-  {:type :rectangle :x x :y y :width width :height height})
-
-(defmulti area :type)
-
-(defmethod area :circle [shape]
-  (* Math/PI (:radius shape) (:radius shape)))
-
-(defmethod area :rectangle [shape]
-  (* (:width shape) (:height shape)))
-
-(defmulti scale :type)
-
-(defmethod scale :circle [shape factor]
-  (update shape :radius * factor))
-
-(defmethod scale :rectangle [shape factor]
-  (-> shape
-      (update :width * factor)
-      (update :height * factor)))
-```
-
-### 4.2 共通操作の実装
-
-```clojure
-;; 型に依存しない共通操作
-(defn move [shape dx dy]
-  (-> shape
-      (update :x + dx)
-      (update :y + dy)))
-
-;; すべての図形で使用可能
-(move (make-circle 0 0 10) 5 3)
-;; => {:type :circle :x 5 :y 3 :radius 10}
-
-(move (make-rectangle 0 0 10 20) 5 3)
-;; => {:type :rectangle :x 5 :y 3 :width 10 :height 20}
-```
-
-## 5. イベント駆動アーキテクチャ
-
-### 5.1 FP スタイルのイベントシステム
-
-```clojure
-(defn make-event-system []
-  {:handlers {}
-   :event-log []})
-
-(defn subscribe [system event-type handler]
-  (update-in system [:handlers event-type]
-             (fnil conj []) handler))
-
-(defn publish [system event-type data]
-  (let [handlers (get-in system [:handlers event-type] [])
-        event {:type event-type :data data}
-        results (mapv #(% event) handlers)]
-    {:system (update system :event-log conj event)
-     :results results}))
-
-(defn get-event-log [system]
-  (:event-log system))
-```
-
-**使用例**:
-```clojure
-(let [system (-> (make-event-system)
-                 (subscribe :user-created
-                            (fn [e] (println "User created:" (:data e))))
-                 (subscribe :user-created
-                            (fn [e] (str "Welcome, " (:name (:data e))))))]
-  (publish system :user-created {:name "John" :email "john@example.com"}))
-```
-
-## 6. 移行のチェックリスト
-
-### 6.1 準備フェーズ
-
-- [ ] 現在のコードの状態を把握
-- [ ] テストカバレッジを確認
-- [ ] 移行の優先順位を決定
-- [ ] チームへの教育
-
-### 6.2 実行フェーズ
-
-- [ ] 純粋関数を抽出
-- [ ] 副作用を分離
-- [ ] マルチメソッドに移行
-- [ ] テストを追加
-
-### 6.3 完了フェーズ
-
-- [ ] 古いコードを削除
-- [ ] ドキュメントを更新
-- [ ] パフォーマンスを確認
-- [ ] チームレビュー
-
-## 7. テストコード
-
-```clojure
-(describe "OO から FP への移行"
-
-  (describe "FP スタイル"
-    (it "入金がイミュータブル"
-      (let [acc (fp/make-account "A001" 1000)
-            new-acc (fp/deposit acc 500)]
-        (should= 1000 (fp/get-balance acc))
-        (should= 1500 (fp/get-balance new-acc))))
-
-    (it "送金が正しく動作する"
-      (let [from (fp/make-account "A001" 1000)
-            to (fp/make-account "A002" 500)
-            result (fp/transfer from to 300)]
-        (should (:success result))
-        (should= 700 (fp/get-balance (:from result)))
-        (should= 800 (fp/get-balance (:to result))))))
-
-  (describe "移行戦略"
-    (it "アダプターで既存インターフェースを維持"
-      (let [adapter (ms/make-fp-account-adapter "A001" 1000)]
-        (ms/deposit-to-account adapter 500)
-        (should= 1500 (ms/get-account-balance adapter))))
-
-    (it "イベントをリプレイできる"
-      (let [events [(ms/account-event :created {:id "A001" :balance 0 :transactions []})
-                    (ms/account-event :deposited {:amount 1000})
-                    (ms/account-event :withdrawn {:amount 300})]
-            account (ms/replay-events events)]
-        (should= 700 (:balance account))))))
-```
-
-## 8. まとめ
-
-### 移行のポイント
-
-1. **段階的に進める**: 一度にすべてを変更しない
-2. **テストを書く**: 移行前後の動作を保証
-3. **アダプターを活用**: 既存のインターフェースを維持
-4. **純粋関数から始める**: 計算ロジックを先に抽出
-
-### 関数型の利点
-
-| 側面 | OO | FP |
-|-----|----|----|
-| テスト | モックが必要 | 入力 → 出力のみ |
-| デバッグ | 状態の追跡が困難 | 値が不変で追跡容易 |
-| 並行処理 | ロックが必要 | 不変データで安全 |
-| 再利用 | 継承の制約 | 関数合成で自由 |
-
-### 最終的なゴール
-
-```plantuml
-@startuml
-title 関数型アーキテクチャ
-
-package "純粋な領域" {
-  [ビジネスロジック]
-  [データ変換]
-  [バリデーション]
-}
-
-package "副作用の境界" {
-  [データベース]
-  [外部API]
-  [ファイルI/O]
-}
-
-[入力] --> [純粋な領域]
-[純粋な領域] --> [副作用の境界]
-[副作用の境界] --> [出力]
-@enduml
-```
-
-### シリーズのまとめ
-
-本シリーズを通じて、以下を学びました：
-
-1. **基礎原則**: 不変性、関数合成、多態性
-2. **仕様とテスト**: Spec、プロパティベーステスト、TDD
-3. **構造パターン**: Composite、Decorator、Adapter
-4. **振る舞いパターン**: Strategy、Command、Visitor
-5. **生成パターン**: Abstract Factory、Abstract Server
-6. **ケーススタディ**: 実践的なアプリケーション
-7. **ベストプラクティス**: データ中心設計、テスト可能な設計
-
-関数型デザインは、シンプルで保守しやすく、テストしやすいソフトウェアを構築するための強力なアプローチです。これらの原則とパターンを活用して、より良いソフトウェアを作成してください。
-
----
-
-**Simple made easy.**