@k2works/claude-code-booster 3.0.0 → 3.1.0

package/lib/assets/docs/article/grokkingfp/clojure/part-6.md

@@ -0,0 +1,721 @@
+# Part VI: 実践的なアプリケーション構築とテスト（Clojure 版）
+
+本章では、これまで学んだ関数型プログラミングの概念を統合し、実践的なアプリケーションを構築します。また、関数型プログラミングにおけるテスト戦略についても学びます。
+
+---
+
+## 第12章: 実践的なアプリケーション構築
+
+### 12.1 TravelGuide アプリケーション
+
+**ソースファイル**: `app/clojure/src/ch12/travel_guide.clj`
+
+旅行ガイドアプリケーションを例に、実践的な FP アプリケーションの構築方法を学びます。
+
+```plantuml
+@startuml
+!theme plain
+
+package "TravelGuide Application" {
+  rectangle "Model" {
+    class Location {
+      id: String
+      name: String
+      population: Int
+    }
+
+    class Attraction {
+      name: String
+      description: Option
+      location: Location
+    }
+
+    class TravelGuide {
+      attraction: Attraction
+      subjects: Vector
+      search-report: SearchReport
+    }
+  }
+
+  rectangle "Data Access" {
+    interface DataAccess {
+      +find-attractions()
+      +find-artists-from-location()
+      +find-movies-about-location()
+    }
+
+    class TestDataAccess
+    class CachedDataAccess
+  }
+
+  DataAccess <|.. TestDataAccess
+  DataAccess <|.. CachedDataAccess
+}
+
+@enduml
+```
+
+### 12.2 ドメインモデルの定義
+
+```clojure
+;; レコード定義
+(defrecord Location [id name population])
+(defrecord Attraction [name description location])
+(defrecord MusicArtist [name genre origin])
+(defrecord Movie [name year director])
+(defrecord Hotel [name rating location])
+(defrecord SearchReport [attractions-searched errors])
+(defrecord TravelGuide [attraction subjects search-report])
+
+;; コンストラクタ関数
+(defn location [id name population]
+  (->Location id name population))
+
+(defn attraction
+  ([name location]
+   (->Attraction name nil location))
+  ([name description location]
+   (->Attraction name description location)))
+
+(defn travel-guide [attraction subjects search-report]
+  (->TravelGuide attraction subjects search-report))
+```
+
+### 12.3 データアクセス層の抽象化
+
+プロトコルを使用して外部データソースへのアクセスを抽象化します。
+
+```clojure
+(defprotocol DataAccess
+  "データアクセス層の抽象化"
+  (find-attractions [this name ordering limit]
+    "アトラクションを検索")
+  (find-artists-from-location [this location-id limit]
+    "ロケーションからアーティストを検索")
+  (find-movies-about-location [this location-id limit]
+    "ロケーションに関する映画を検索")
+  (find-hotels-near-location [this location-id limit]
+    "ロケーション近くのホテルを検索"))
+```
+
+```plantuml
+@startuml
+!theme plain
+
+interface DataAccess {
+  +find-attractions(): Result
+  +find-artists-from-location(): Result
+  +find-movies-about-location(): Result
+  +find-hotels-near-location(): Result
+}
+
+note right of DataAccess
+  プロトコルによる抽象化
+  すべての操作は Result を返す
+end note
+
+class TestDataAccess {
+  -attractions: Vector
+  -artists: Vector
+  -movies: Vector
+}
+
+class FailingDataAccess {
+  +returns errors for testing
+}
+
+class CachedDataAccess {
+  -underlying: DataAccess
+  -cache: Atom
+}
+
+DataAccess <|.. TestDataAccess
+DataAccess <|.. FailingDataAccess
+DataAccess <|.. CachedDataAccess
+
+@enduml
+```
+
+### 12.4 Result 型によるエラー処理
+
+```clojure
+;; Result ユーティリティ
+(defn ok? [result]
+  (contains? result :ok))
+
+(defn error? [result]
+  (contains? result :error))
+
+(defn get-value [result default]
+  (if (ok? result)
+    (:ok result)
+    default))
+
+(defn get-error [result]
+  (:error result))
+```
+
+### 12.5 テスト用スタブ実装
+
+```clojure
+(defrecord TestDataAccess [attractions artists movies hotels]
+  DataAccess
+  (find-attractions [_ name ordering limit]
+    {:ok (take limit (filter #(clojure.string/includes?
+                               (clojure.string/lower-case (:name %))
+                               (clojure.string/lower-case name))
+                             attractions))})
+
+  (find-artists-from-location [_ location-id limit]
+    {:ok (take limit artists)})
+
+  (find-movies-about-location [_ location-id limit]
+    {:ok (take limit movies)})
+
+  (find-hotels-near-location [_ location-id limit]
+    {:ok (take limit hotels)}))
+
+(defn create-test-data-access []
+  (->TestDataAccess
+   [test-attraction ...]
+   [test-artist ...]
+   [test-movie ...]
+   [test-hotel ...]))
+```
+
+### 12.6 エラー処理付きデータアクセス
+
+```clojure
+(defrecord FailingDataAccess []
+  DataAccess
+  (find-attractions [_ name ordering limit]
+    {:ok [(attraction "Fallback Attraction" nil test-location)]})
+
+  (find-artists-from-location [_ location-id limit]
+    {:error "Network error: Failed to fetch artists"})
+
+  (find-movies-about-location [_ location-id limit]
+    {:error "Timeout: Failed to fetch movies"})
+
+  (find-hotels-near-location [_ location-id limit]
+    {:error "Service unavailable"}))
+```
+
+### 12.7 TravelGuide アプリケーションの構築
+
+```clojure
+(defn build-travel-guide
+  "旅行ガイドを構築"
+  [data-access attraction-name]
+  (let [attractions-result (find-attractions data-access attraction-name by-population 3)]
+    (if (error? attractions-result)
+      {:error (get-error attractions-result)}
+      (let [attractions (get-value attractions-result [])]
+        (map (fn [attr]
+               (let [location-id (get-in attr [:location :id])
+                     artists-result (find-artists-from-location data-access location-id 2)
+                     movies-result (find-movies-about-location data-access location-id 2)
+
+                     ;; エラーを収集
+                     errors (cond-> []
+                              (error? artists-result) (conj (get-error artists-result))
+                              (error? movies-result) (conj (get-error movies-result)))
+
+                     ;; 結果を取得（エラー時は空リスト）
+                     artists (get-value artists-result [])
+                     movies (get-value movies-result [])
+
+                     ;; サブジェクトを構築
+                     subjects (concat (map :name artists) (map :name movies))]
+                 (travel-guide
+                  attr
+                  (vec subjects)
+                  (search-report (count attractions) errors))))
+             attractions)))))
+```
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "build-travel-guide 関数" {
+  card "1. アトラクション検索" as step1
+  card "2. アーティスト検索" as step2
+  card "3. 映画検索" as step3
+  card "4. エラー収集" as step4
+  card "5. TravelGuide 組み立て" as step5
+
+  step1 --> step2 : attraction
+  step1 --> step3 : location-id
+  step2 --> step4 : artists-result
+  step3 --> step4 : movies-result
+  step4 --> step5 : errors
+}
+
+note bottom
+  エラーは収集され
+  SearchReport に記録される
+end note
+
+@enduml
+```
+
+### 12.8 キャッシュ付きデータアクセス
+
+`atom` を使用したスレッドセーフなキャッシュの実装:
+
+```clojure
+(defn create-cached-data-access
+  "キャッシュ付きデータアクセスを作成"
+  [underlying-data-access]
+  (let [attractions-cache (atom {})
+        artists-cache (atom {})
+        movies-cache (atom {})
+        hotels-cache (atom {})]
+    (reify DataAccess
+      (find-attractions [_ name ordering limit]
+        (let [cache-key (str name "-" ordering "-" limit)]
+          (if-let [cached (get @attractions-cache cache-key)]
+            {:ok cached}
+            (let [result (find-attractions underlying-data-access name ordering limit)]
+              (when (ok? result)
+                (swap! attractions-cache assoc cache-key (:ok result)))
+              result))))
+      ;; 他のメソッドも同様...
+      )))
+```
+
+```plantuml
+@startuml
+!theme plain
+skinparam activity {
+  BackgroundColor White
+  BorderColor Black
+}
+
+start
+
+:キャッシュキー生成;
+
+:atom からキャッシュ確認;
+
+if (キャッシュにデータあり?) then (yes)
+  :キャッシュからデータ返却;
+else (no)
+  :underlying を呼び出し;
+  :結果をキャッシュに保存;
+  :結果を返却;
+endif
+
+stop
+
+note right
+  atom を使用した
+  スレッドセーフなキャッシュ
+end note
+
+@enduml
+```
+
+### 12.9 リソース管理
+
+安全なリソース管理パターン:
+
+```clojure
+(defn with-resource
+  "リソースを安全に使用（try-with-resources パターン）"
+  [acquire release use-fn]
+  (let [resource (acquire)]
+    (try
+      (use-fn resource)
+      (finally
+        (release resource)))))
+
+(defn make-resource
+  "リソースを作成"
+  [acquire release]
+  {:acquire acquire
+   :release release})
+
+;; ファイルリソースの例
+(defn file-resource [path]
+  (make-resource
+   #(clojure.java.io/reader path)
+   #(.close %)))
+
+(defn read-lines [path]
+  (use-resource
+   (file-resource path)
+   (fn [reader]
+     (vec (line-seq reader)))))
+```
+
+### 12.10 バリデーション
+
+```clojure
+(defn validate-attraction-name [name]
+  (cond
+    (nil? name)
+    {:error "Attraction name cannot be nil"}
+
+    (clojure.string/blank? name)
+    {:error "Attraction name cannot be empty"}
+
+    (> (count name) 100)
+    {:error "Attraction name too long"}
+
+    :else
+    {:ok name}))
+
+(defn validate-limit [limit]
+  (cond
+    (nil? limit)
+    {:error "Limit cannot be nil"}
+
+    (not (integer? limit))
+    {:error "Limit must be an integer"}
+
+    (<= limit 0)
+    {:error "Limit must be positive"}
+
+    (> limit 100)
+    {:error "Limit cannot exceed 100"}
+
+    :else
+    {:ok limit}))
+```
+
+---
+
+## 第13章: テスト戦略
+
+### 13.1 関数型プログラミングのテスト
+
+関数型プログラミングでは、純粋関数のおかげでテストが非常に簡単になります。
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "テストの種類" {
+  rectangle "単体テスト" as unit {
+    card "純粋関数のテスト"
+    card "高速・独立"
+  }
+
+  rectangle "プロパティベーステスト" as property {
+    card "ランダム入力"
+    card "不変条件の検証"
+  }
+
+  rectangle "統合テスト" as integration {
+    card "コンポーネント連携"
+    card "スタブ使用"
+  }
+}
+
+unit --> property : 補完
+property --> integration : 補完
+
+@enduml
+```
+
+### 13.2 純粋関数のテスト
+
+**ソースファイル**: `app/clojure/test/ch12/travel_guide_test.clj`
+
+純粋関数は入力と出力のみでテストできます。
+
+```clojure
+(deftest filter-popular-locations-tests
+  (testing "filters by minimum population"
+    (let [locations [(location "Q1" "Small" 1000)
+                     (location "Q2" "Medium" 100000)
+                     (location "Q3" "Large" 1000000)]
+          result (filter-popular-locations locations 50000)]
+      (is (= 2 (count result)))
+      (is (every? #(>= (:population %) 50000) result)))))
+
+(deftest calculate-average-rating-tests
+  (testing "calculates average"
+    (let [loc (location "Q1" "City" 100000)
+          hotels [(hotel "H1" 4.0 loc)
+                  (hotel "H2" 5.0 loc)
+                  (hotel "H3" 3.0 loc)]]
+      (is (= 4.0 (calculate-average-rating hotels)))))
+
+  (testing "returns 0 for empty list"
+    (is (= 0.0 (calculate-average-rating [])))))
+```
+
+### 13.3 スタブを使用したテスト
+
+```clojure
+(deftest test-data-access-tests
+  (let [data-access (create-test-data-access)]
+
+    (testing "find-attractions returns matching attractions"
+      (let [result (find-attractions data-access "Test" by-name 10)]
+        (is (ok? result))
+        (is (= 1 (count (:ok result))))))
+
+    (testing "find-artists-from-location"
+      (let [result (find-artists-from-location data-access "Test City" 10)]
+        (is (ok? result))))))
+
+(deftest failing-data-access-tests
+  (let [data-access (create-failing-data-access)]
+
+    (testing "find-artists-from-location returns error"
+      (let [result (find-artists-from-location data-access "Q123" 10)]
+        (is (error? result))))))
+```
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "テスト構成" {
+  rectangle "本番" as prod {
+    interface "DataAccess" as da1
+    class "WikidataDataAccess" as wda
+    da1 <|.. wda
+  }
+
+  rectangle "テスト" as test {
+    interface "DataAccess" as da2
+    class "TestDataAccess" as tda
+    class "FailingDataAccess" as fda
+    da2 <|.. tda
+    da2 <|.. fda
+  }
+}
+
+note bottom of prod
+  実際のサービスに接続
+end note
+
+note bottom of test
+  テストデータを返す
+  エラーケースをシミュレート
+end note
+
+@enduml
+```
+
+### 13.4 プロパティベーステスト
+
+ランダムな入力で不変条件を検証します。
+
+```clojure
+;; ランダムデータ生成
+(defn random-location []
+  (location
+   (str "Q" (rand-int 10000))
+   (random-string 10)
+   (rand-int 10000000)))
+
+(defn random-attractions [n]
+  (repeatedly n random-attraction))
+
+;; プロパティテスト
+(deftest property-filter-popular-locations-tests
+  (testing "result size is at most input size"
+    (dotimes [_ 100]
+      (let [n (inc (rand-int 20))
+            locations (repeatedly n random-location)
+            min-pop (rand-int 10000000)
+            result (filter-popular-locations locations min-pop)]
+        (is (<= (count result) n)))))
+
+  (testing "all results meet minimum population"
+    (dotimes [_ 100]
+      (let [locations (repeatedly 10 random-location)
+            min-pop (rand-int 10000000)
+            result (filter-popular-locations locations min-pop)]
+        (is (every? #(>= (:population %) min-pop) result))))))
+```
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "プロパティベーステスト" {
+  card "ランダムデータ生成" as gen
+  card "関数を実行" as exec
+  card "プロパティ検証" as verify
+  card "100回以上繰り返し" as repeat
+
+  gen --> exec
+  exec --> verify
+  verify --> repeat
+  repeat --> gen : 繰り返し
+}
+
+note bottom
+  ランダムな入力で
+  不変条件を検証
+end note
+
+@enduml
+```
+
+### 13.5 統合テスト
+
+```clojure
+(deftest integration-travel-guide-tests
+  (testing "end-to-end travel guide workflow"
+    (let [data-access (create-cached-data-access (create-test-data-access))
+          ;; バリデーション
+          validation (validate-search-params "Test" 3)]
+      (is (ok? validation))
+
+      ;; ガイド取得
+      (let [result (get-travel-guide data-access "Test")]
+        (is (ok? result))
+        (let [guide (:ok result)]
+          (is (some? (:attraction guide)))
+          (is (vector? (:subjects guide)))
+          (is (some? (:search-report guide)))))))
+
+  (testing "workflow with partial failure"
+    (let [data-access (create-failing-data-access)
+          result (get-travel-guide data-access "Test")]
+      (is (ok? result))
+      (let [guide (:ok result)]
+        (is (= 2 (count (get-in guide [:search-report :errors]))))))))
+```
+
+### 13.6 テストピラミッド
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "テストピラミッド" {
+  rectangle "E2E テスト\n(少数)" as e2e
+  rectangle "統合テスト\n(中程度)" as integration
+  rectangle "単体テスト + プロパティテスト\n(多数)" as unit
+}
+
+e2e -[hidden]down- integration
+integration -[hidden]down- unit
+
+note right of unit
+  FP では純粋関数が多いため
+  単体テストが非常に効果的
+end note
+
+@enduml
+```
+
+---
+
+## まとめ
+
+### Part VI で学んだこと
+
+```plantuml
+@startuml
+!theme plain
+
+rectangle "Part VI: 実践的なアプリケーション" {
+  rectangle "第12章" as ch12 {
+    card "ドメインモデル設計"
+    card "DataAccess 抽象化"
+    card "リソース管理"
+    card "キャッシュ実装"
+    card "バリデーション"
+  }
+
+  rectangle "第13章" as ch13 {
+    card "純粋関数テスト"
+    card "スタブ/モック"
+    card "プロパティベーステスト"
+    card "統合テスト"
+  }
+}
+
+ch12 --> ch13
+
+@enduml
+```
+
+### Clojure vs Scala の比較
+
+| 概念 | Scala | Clojure |
+|------|-------|---------|
+| ドメインモデル | case class | defrecord |
+| 抽象化 | trait | defprotocol |
+| リソース管理 | Resource | with-resource |
+| キャッシュ | Ref | atom |
+| エラー処理 | Either | {:ok ...} / {:error ...} |
+| テスト | ScalaTest | clojure.test |
+
+### キーポイント
+
+1. **プロトコルによる抽象化**: DataAccess で外部依存を抽象化
+2. **with-resource でリソース管理**: 安全なリソースの取得と解放
+3. **atom でキャッシュ**: スレッドセーフな状態管理
+4. **Result マップでエラー処理**: 明示的なエラーハンドリング
+5. **SearchReport**: テスト可能性と可観測性の向上
+6. **スタブ**: 外部依存を差し替えてテスト
+7. **プロパティベーステスト**: ランダム入力で不変条件を検証
+
+### 学習の総括
+
+```plantuml
+@startuml
+!theme plain
+left to right direction
+
+rectangle "FP の学習パス" {
+  card "Part I\n基礎" as p1
+  card "Part II\n関数型スタイル" as p2
+  card "Part III\nnil 安全性" as p3
+  card "Part IV\n副作用とシーケンス" as p4
+  card "Part V\n並行処理" as p5
+  card "Part VI\n実践" as p6
+}
+
+p1 --> p2
+p2 --> p3
+p3 --> p4
+p4 --> p5
+p5 --> p6
+
+@enduml
+```
+
+---
+
+## シリーズ全体の総括
+
+本シリーズでは、「Grokking Functional Programming」の内容に沿って、Clojure で関数型プログラミングの基礎から実践的なアプリケーション構築までを学びました。
+
+### 学んだ主な概念
+
+| Part | 章 | 主な概念 |
+|------|-----|----------|
+| I | 1-2 | 純粋関数、参照透過性 |
+| II | 3-5 | イミュータブルデータ、高階関数、mapcat |
+| III | 6-7 | nil 安全性、Result パターン、ADT |
+| IV | 8-9 | 状態管理、遅延シーケンス、トランスデューサー |
+| V | 10-11 | atom/ref/agent、core.async |
+| VI | 12-13 | 実践アプリケーション、テスト |
+
+### Clojure における関数型プログラミングの利点
+
+1. **シンプルさ**: Lisp の S 式による一貫した構文
+2. **イミュータブルがデフォルト**: 永続データ構造
+3. **豊富な並行プリミティブ**: atom, ref, agent, core.async
+4. **遅延評価**: 効率的なシーケンス処理
+5. **REPL 駆動開発**: インタラクティブな開発体験
+6. **Java 相互運用**: 豊富なエコシステムへのアクセス
+
+### 次のステップ
+
+- spec や malli による仕様記述とバリデーション
+- Component や Integrant によるシステム構成
+- re-frame や Fulcro によるフロントエンド開発
+- 実際のプロジェクトで Clojure を適用する