@k2works/claude-code-booster 4.8.0 → 4.11.0

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

@@ -1,721 +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 を適用する
+# 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 を適用する