freelang-editor 11.7.4

package/examples/test-libs.fl

@@ -0,0 +1,272 @@
+;; test-libs.fl — 5개 표준 라이브러리 통합 테스트
+(load "lib/validate.fl")
+(load "lib/pipeline.fl")
+(load "lib/template.fl")
+(load "lib/datetime.fl")
+
+(define pass-count (atom 0))
+(define fail-count (atom 0))
+
+(defn assert-eq [label expected actual]
+  (if (= expected actual)
+    (do
+      (swap! pass-count inc)
+      (println (str "  ✅ " label)))
+    (do
+      (swap! fail-count inc)
+      (println (str "  ❌ " label))
+      (println (str "     기대: " (str expected)))
+      (println (str "     실제: " (str actual))))))
+
+(defn assert-ok [label result]
+  (if (get result "ok")
+    (do (swap! pass-count inc) (println (str "  ✅ " label)))
+    (do (swap! fail-count inc) (println (str "  ❌ " label " → " (str result))))))
+
+(defn assert-fail [label result]
+  (if (not (get result "ok"))
+    (do (swap! pass-count inc) (println (str "  ✅ " label " (실패가 올바름)")))
+    (do (swap! fail-count inc) (println (str "  ❌ " label " (실패여야 하는데 통과됨)")))))
+
+;; ═══════════════════════════════════════════════════════════
+;; 1. validate.fl
+;; ═══════════════════════════════════════════════════════════
+(println "\n[1] validate.fl")
+
+(assert-ok "required - 값 있음"
+  (vld/check "Alice" {:required true}))
+
+(assert-fail "required - 빈 문자열"
+  (vld/check "" {:required true}))
+
+(assert-fail "required - nil"
+  (vld/check nil {:required true}))
+
+(assert-ok "type string"
+  (vld/check "hello" {:type "string"}))
+
+(assert-fail "type 불일치"
+  (vld/check 42 {:type "string"}))
+
+(assert-ok "min-length 통과"
+  (vld/check "hello" {:min-length 3}))
+
+(assert-fail "min-length 실패"
+  (vld/check "hi" {:min-length 3}))
+
+(assert-ok "max-length 통과"
+  (vld/check "hi" {:max-length 5}))
+
+(assert-fail "max-length 실패"
+  (vld/check "toolong" {:max-length 5}))
+
+(assert-ok "email 유효"
+  (vld/check "alice@example.com" {:email true}))
+
+(assert-fail "email 무효"
+  (vld/check "notanemail" {:email true}))
+
+(assert-ok "url 유효"
+  (vld/check "https://example.com" {:url true}))
+
+(assert-fail "url 무효"
+  (vld/check "example.com" {:url true}))
+
+(assert-ok "in 통과"
+  (vld/check "admin" {:in ["admin" "user" "guest"]}))
+
+(assert-fail "in 실패"
+  (vld/check "superuser" {:in ["admin" "user" "guest"]}))
+
+(assert-ok "min 통과"
+  (vld/check 25 {:min 18}))
+
+(assert-fail "min 실패"
+  (vld/check 15 {:min 18}))
+
+(let [schema {:name {:required true :type "string" :min-length 2}
+              :age  {:type "number" :min 0 :max 120}
+              :email {:email true}}
+      valid-data {:name "Alice" :age 30 :email "alice@example.com"}
+      invalid-data {:name "A" :age -5 :email "bad"}]
+  (assert-ok "schema 유효 데이터"
+    (vld/schema valid-data schema))
+  (assert-fail "schema 무효 데이터"
+    (vld/schema invalid-data schema)))
+
+;; ═══════════════════════════════════════════════════════════
+;; 2. pipeline.fl
+;; ═══════════════════════════════════════════════════════════
+(println "\n[2] pipeline.fl")
+
+(let [data [1 2 3 4 5 6 7 8 9 10]]
+  (assert-eq "filter even"
+    [2 4 6 8 10]
+    (pipe/run data [(pipe/filter even?)]))
+
+  (assert-eq "map double"
+    [2 4 6 8 10 12 14 16 18 20]
+    (pipe/run data [(pipe/map (fn [x] (* x 2)))]))
+
+  (assert-eq "filter + map"
+    [4 8 12 16 20]
+    (pipe/run data [(pipe/filter even?)
+                    (pipe/map (fn [x] (* x 2)))]))
+
+  (assert-eq "take 3"
+    [1 2 3]
+    (pipe/run data [(pipe/take 3)]))
+
+  (assert-eq "drop 7"
+    [8 9 10]
+    (pipe/run data [(pipe/drop 7)]))
+
+  (assert-eq "sort-by desc"
+    [10 9 8 7 6 5 4 3 2 1]
+    (pipe/run data [(pipe/sort-by-desc identity)]))
+
+  (assert-eq "take-while < 5"
+    [1 2 3 4]
+    (pipe/run data [(pipe/take-while (fn [x] (< x 5)))]))
+
+  (assert-eq "distinct"
+    [1 2 3]
+    (pipe/run [1 2 2 3 3 3] [(pipe/distinct)]))
+
+  (assert-eq "reduce sum"
+    55
+    (pipe/run data [(pipe/reduce + 0)]))
+
+  (let [grouped (pipe/run data [(pipe/group-by (fn [x] (if (even? x) "even" "odd")))])]
+    (assert-eq "group-by even count"
+      5
+      (length (get grouped "even"))))
+
+  (assert-eq "pipe/stats count"
+    10
+    (get (pipe/stats data identity) "count"))
+
+  (assert-eq "pipe/stats sum"
+    55
+    (get (pipe/stats data identity) "sum")))
+
+(let [people [{:name "Alice" :age 30}
+              {:name "Bob"   :age 25}
+              {:name "Carol" :age 35}]]
+  (assert-eq "sort-by age asc"
+    "Bob"
+    (get (first (pipe/run people [(pipe/sort-by (fn [p] (get p "age")))])) "name"))
+
+  (assert-eq "max-by-field age"
+    "Carol"
+    (get (pipe/max-by-field (fn [p] (get p "age")) people) "name"))
+
+  (assert-eq "min-by-field age"
+    "Bob"
+    (get (pipe/min-by-field (fn [p] (get p "age")) people) "name")))
+
+;; ═══════════════════════════════════════════════════════════
+;; 3. template.fl
+;; ═══════════════════════════════════════════════════════════
+(println "\n[3] template.fl")
+
+(assert-eq "변수 치환"
+  "Hello, Alice!"
+  (tmpl/render "Hello, {{name}}!" {:name "Alice"}))
+
+(assert-eq "다중 변수"
+  "Name: Bob, Age: 25"
+  (tmpl/render "Name: {{name}}, Age: {{age}}" {:name "Bob" :age 25}))
+
+(assert-eq "nil 변수 → 빈 문자열"
+  "Hello, !"
+  (tmpl/render "Hello, {{missing}}!" {}))
+
+(assert-eq "if 참"
+  "Welcome, admin!"
+  (tmpl/render "Welcome, {{#if is_admin}}admin{{/if}}!" {:is_admin true}))
+
+(assert-eq "if 거짓"
+  "Welcome, !"
+  (tmpl/render "Welcome, {{#if is_admin}}admin{{/if}}!" {:is_admin false}))
+
+(assert-eq "each 기본"
+  "1 2 3 "
+  (tmpl/render "{{#each nums}}{{.}} {{/each}}" {:nums [1 2 3]}))
+
+(assert-eq "each 빈 목록"
+  ""
+  (tmpl/render "{{#each items}}{{.}}{{/each}}" {:items []}))
+
+(assert-eq "boolean true"
+  "true"
+  (tmpl/to-str true))
+
+(assert-eq "boolean false"
+  "false"
+  (tmpl/to-str false))
+
+(assert-eq "nil → 빈 문자열"
+  ""
+  (tmpl/to-str nil))
+
+;; partial 테스트
+(tmpl/register "header" "<header>{{title}}</header>")
+(assert-eq "partial 렌더"
+  "<header>My App</header>"
+  (tmpl/render "{{> header}}" {:title "My App"}))
+
+;; ═══════════════════════════════════════════════════════════
+;; 4. datetime.fl
+;; ═══════════════════════════════════════════════════════════
+(println "\n[4] datetime.fl")
+
+(let [ts (dt/now)]
+  (assert-eq "now-ms는 숫자"
+    true
+    (> ts 0))
+
+  (assert-eq "dt/add days"
+    true
+    (= (dt/add ts "days" 1) (+ ts dt/MS_DAY)))
+
+  (assert-eq "dt/add hours"
+    true
+    (= (dt/add ts "hours" 1) (+ ts dt/MS_HOUR)))
+
+  (assert-eq "dt/diff same"
+    0
+    (dt/diff ts ts "days"))
+
+  (assert-eq "dt/diff 1 day"
+    1
+    (dt/diff ts (+ ts dt/MS_DAY) "days"))
+
+  (assert-eq "dt/between? true"
+    true
+    (dt/between? ts (- ts 1000) (+ ts 1000)))
+
+  (assert-eq "dt/between? false"
+    false
+    (dt/between? ts (+ ts 1000) (+ ts 2000))))
+
+(assert-eq "dt/diff 7 days → weeks"
+  1
+  (dt/diff 0 (* 7 dt/MS_DAY) "weeks"))
+
+;; 상대 시간
+(let [now (dt/now)]
+  (assert-eq "방금 전"
+    "방금 전"
+    (dt/relative (- now 30000)))
+  (assert-eq "방금 후 (미래)"
+    "방금 후"
+    (dt/relative (+ now 5000))))
+
+;; ═══════════════════════════════════════════════════════════
+;; 결과
+;; ═══════════════════════════════════════════════════════════
+(println)
+(println (str "═══ 결과: " (deref pass-count) " PASS / " (deref fail-count) " FAIL ═══"))
+(when (> (deref fail-count) 0)
+  (println "⚠️  실패한 테스트가 있습니다."))

package/jest.config.js

@@ -0,0 +1,4 @@
+// Root-level shim so that `npx jest ...` (without --config) finds the config.
+// Full config lives at .config/jest.config.js (with coverage + verbose).
+// For fast runs without coverage, use: npm test or npm run test:fast.
+module.exports = require('./.config/jest.fast.config.js');

package/lib/datetime.fl

@@ -0,0 +1,123 @@
+;; ─────────────────────────────────────────────────────────────
+;; datetime.fl — 날짜/시간 처리 라이브러리
+;; (load "lib/datetime.fl")
+;;
+;; 사용:
+;;   (dt/now)                        → 현재 timestamp (ms)
+;;   (dt/format ts "YYYY-MM-DD")     → "2026-05-10"
+;;   (dt/relative ts)                → "3분 전"
+;;   (dt/diff ts1 ts2 "days")        → 5
+;;   (dt/add ts "days" 3)            → ts + 3일
+;;   (dt/weekday ts)                 → "토요일"
+;; ─────────────────────────────────────────────────────────────
+
+;; ── 상수 ────────────────────────────────────────────────────
+(define dt/MS_SEC   1000)
+(define dt/MS_MIN   60000)
+(define dt/MS_HOUR  3600000)
+(define dt/MS_DAY   86400000)
+(define dt/MS_WEEK  604800000)
+
+(define dt/WEEKDAYS ["일요일" "월요일" "화요일" "수요일" "목요일" "금요일" "토요일"])
+(define dt/MONTHS   ["1월" "2월" "3월" "4월" "5월" "6월"
+                     "7월" "8월" "9월" "10월" "11월" "12월"])
+
+;; ── 기본 ─────────────────────────────────────────────────────
+(defn dt/now [] (now-ms))
+
+(defn dt/from-parts [y m d h min s]
+  (let [pad2 (fn [n] (if (< n 10) (str "0" n) (str n)))
+        iso  (str y "-" (pad2 m) "-" (pad2 d)
+                  "T" (pad2 h) ":" (pad2 min) ":" (pad2 s) ".000Z")]
+    (str-to-num (shell-exec-stdout (str "node -e \"console.log(new Date('" iso "').getTime())\""
+)))))
+
+;; ── 분해 ────────────────────────────────────────────────────
+(defn dt/year  [ts] (str-to-num (shell-exec-stdout (str "node -e \"console.log(new Date(" ts ").getFullYear())\""))))
+(defn dt/month [ts] (str-to-num (shell-exec-stdout (str "node -e \"console.log(new Date(" ts ").getMonth()+1)\""))))
+(defn dt/day   [ts] (str-to-num (shell-exec-stdout (str "node -e \"console.log(new Date(" ts ").getDate())\""))))
+(defn dt/hour  [ts] (str-to-num (shell-exec-stdout (str "node -e \"console.log(new Date(" ts ").getHours())\""))))
+(defn dt/minute [ts] (str-to-num (shell-exec-stdout (str "node -e \"console.log(new Date(" ts ").getMinutes())\""))))
+(defn dt/second [ts] (str-to-num (shell-exec-stdout (str "node -e \"console.log(new Date(" ts ").getSeconds())\""))))
+(defn dt/weekday-num [ts] (str-to-num (shell-exec-stdout (str "node -e \"console.log(new Date(" ts ").getDay())\""))))
+
+;; ── 포맷 ────────────────────────────────────────────────────
+(defn dt/pad2 [n] (if (< n 10) (str "0" n) (str n)))
+(defn dt/pad4 [n] (str n))
+
+(defn dt/format [ts fmt]
+  (let [y   (dt/year ts)
+        mo  (dt/month ts)
+        d   (dt/day ts)
+        h   (dt/hour ts)
+        mi  (dt/minute ts)
+        s   (dt/second ts)
+        wd  (dt/weekday-num ts)]
+    (-> fmt
+        (str-replace "YYYY" (dt/pad4 y))
+        (str-replace "MM"   (dt/pad2 mo))
+        (str-replace "DD"   (dt/pad2 d))
+        (str-replace "HH"   (dt/pad2 h))
+        (str-replace "mm"   (dt/pad2 mi))
+        (str-replace "ss"   (dt/pad2 s))
+        (str-replace "M"    (str mo))
+        (str-replace "D"    (str d))
+        (str-replace "ddd"  (nth dt/WEEKDAYS wd))
+        (str-replace "Mon"  (nth dt/MONTHS (- mo 1))))))
+
+;; ── 차이 ─────────────────────────────────────────────────────
+(defn dt/diff [ts1 ts2 unit]
+  (let [delta (abs (- ts2 ts1))]
+    (case unit
+      "ms"      delta
+      "seconds" (quot delta dt/MS_SEC)
+      "minutes" (quot delta dt/MS_MIN)
+      "hours"   (quot delta dt/MS_HOUR)
+      "days"    (quot delta dt/MS_DAY)
+      "weeks"   (quot delta dt/MS_WEEK)
+      delta)))
+
+;; ── 더하기 ───────────────────────────────────────────────────
+(defn dt/add [ts unit amount]
+  (+ ts (* amount
+           (case unit
+             "ms"      1
+             "seconds" dt/MS_SEC
+             "minutes" dt/MS_MIN
+             "hours"   dt/MS_HOUR
+             "days"    dt/MS_DAY
+             "weeks"   dt/MS_WEEK
+             0))))
+
+;; ── 요일 ─────────────────────────────────────────────────────
+(defn dt/weekday [ts]
+  (nth dt/WEEKDAYS (dt/weekday-num ts)))
+
+;; ── 상대 시간 ────────────────────────────────────────────────
+(defn dt/relative [ts]
+  (let [now   (dt/now)
+        delta (- now ts)
+        secs  (quot delta dt/MS_SEC)
+        mins  (quot delta dt/MS_MIN)
+        hours (quot delta dt/MS_HOUR)
+        days  (quot delta dt/MS_DAY)]
+    (cond
+      [(< delta 0)       "방금 후"]
+      [(< secs 60)       "방금 전"]
+      [(< mins 60)       (str mins "분 전")]
+      [(< hours 24)      (str hours "시간 전")]
+      [(< days 7)        (str days "일 전")]
+      [(< days 30)       (str (quot days 7) "주 전")]
+      [(< days 365)      (str (quot days 30) "개월 전")]
+      [true              (str (quot days 365) "년 전")])))
+
+;; ── 범위 ─────────────────────────────────────────────────────
+(defn dt/between? [ts start end]
+  (and (>= ts start) (<= ts end)))
+
+(defn dt/today-start []
+  (let [now (dt/now)]
+    (* (quot now dt/MS_DAY) dt/MS_DAY)))
+
+(defn dt/today-end []
+  (+ (dt/today-start) dt/MS_DAY -1))

package/lib/http-client.fl

@@ -0,0 +1,129 @@
+;; ─────────────────────────────────────────────────────────────
+;; http-client.fl — HTTP 클라이언트 래퍼
+;; (load "lib/http-client.fl")
+;;
+;; 사용:
+;;   (http/get url)
+;;   (http/get url {:token "..." :headers {...} :retry 3})
+;;   (http/post url body {:token "..." :content-type "application/json"})
+;;   (http/put url body opts)
+;;   (http/delete url opts)
+;;
+;;   ;; 베이스 URL 클라이언트
+;;   (define api (http/client "https://api.example.com" {:token "..."}))
+;;   (api "/users")
+;;   (api "/users/1" {:method "DELETE"})
+;; ─────────────────────────────────────────────────────────────
+
+;; ── 기본값 ──────────────────────────────────────────────────
+(define http/DEFAULT_TIMEOUT 10000)
+(define http/DEFAULT_RETRY    0)
+
+;; ── 응답 파싱 ────────────────────────────────────────────────
+(defn http/parse-response [resp]
+  (let [status (get resp "status")
+        body   (get resp "body")
+        parsed (if (str-blank? body)
+                 nil
+                 (?? (json-parse body) body))]
+    {:status  status
+     :ok      (and (>= status 200) (< status 300))
+     :body    parsed
+     :raw     body}))
+
+;; ── 헤더 빌더 ────────────────────────────────────────────────
+(defn http/build-headers [opts]
+  (let [base      {"Content-Type" "application/json"
+                   "Accept"       "application/json"}
+        token     (get opts "token")
+        with-auth (if (not (str-blank? token))
+                    (assoc base "Authorization" (str "Bearer " token))
+                    base)
+        extra     (?? (get opts "headers") {})]
+    (obj-merge with-auth extra)))
+
+;; ── 재시도 래퍼 ─────────────────────────────────────────────
+(defn http/with-retry [f retry]
+  (loop [attempt 0]
+    (let [result (try (f) (catch e {:error true :msg (get e "message")}))]
+      (if (or (get result "ok")
+              (not (get result "error"))
+              (>= attempt retry))
+        result
+        (do
+          (sleep (* attempt 500))
+          (recur (inc attempt)))))))
+
+;; ── GET ──────────────────────────────────────────────────────
+(defn http/get [url]
+  (http/parse-response (http_get url)))
+
+(defn http/get-with [url opts]
+  (let [headers (http/build-headers opts)
+        retry   (?? (get opts "retry") http/DEFAULT_RETRY)
+        token   (get opts "token")]
+    (http/with-retry
+      (fn []
+        (http/parse-response
+          (if (not (str-blank? token))
+            (http-get-bearer url token)
+            (http_get url))))
+      retry)))
+
+;; ── POST ─────────────────────────────────────────────────────
+(defn http/post [url body]
+  (let [payload (if (string? body) body (json-stringify body))]
+    (http/parse-response (http_post url payload))))
+
+(defn http/post-with [url body opts]
+  (let [payload (if (string? body) body (json-stringify body))
+        retry   (?? (get opts "retry") http/DEFAULT_RETRY)
+        token   (get opts "token")]
+    (http/with-retry
+      (fn []
+        (http/parse-response
+          (if (not (str-blank? token))
+            (http-post-bearer url payload token)
+            (http_post url payload))))
+      retry)))
+
+;; ── PUT / PATCH / DELETE ─────────────────────────────────────
+(defn http/put [url body opts]
+  (http/post-with url body (assoc opts "method" "PUT")))
+
+(defn http/delete [url opts]
+  (http/get-with url (assoc opts "method" "DELETE")))
+
+;; ── 편의 함수 ────────────────────────────────────────────────
+(defn http/ok? [resp] (get resp "ok"))
+(defn http/body [resp] (get resp "body"))
+(defn http/status [resp] (get resp "status"))
+
+(defn http/body-or [resp default]
+  (?? (http/body resp) default))
+
+(defn http/assert-ok [resp msg]
+  (when (not (http/ok? resp))
+    (error (str msg " (HTTP " (str (http/status resp)) ")"))))
+
+;; ── 베이스 URL 클라이언트 ────────────────────────────────────
+(defn http/client [base-url opts]
+  (fn [path]
+    (http/get-with (str base-url path) opts)))
+
+(defn http/client-post [base-url opts]
+  (fn [path body]
+    (http/post-with (str base-url path) body opts)))
+
+;; ── JSON 편의 ────────────────────────────────────────────────
+(defn http/get-json [url token]
+  (let [resp (http/get-with url {:token token})]
+    (if (http/ok? resp)
+      (http/body resp)
+      nil)))
+
+(defn http/post-json [url body token]
+  (let [resp (http/post-with url body {:token token})]
+    (if (http/ok? resp)
+      (http/body resp)
+      nil)))

package/lib/pipeline.fl

@@ -0,0 +1,150 @@
+;; ─────────────────────────────────────────────────────────────
+;; pipeline.fl — 데이터 파이프라인 라이브러리
+;; (load "lib/pipeline.fl")
+;;
+;; 사용:
+;;   (pipe/run data
+;;     (pipe/filter even?)
+;;     (pipe/map (fn [x] (* x 2)))
+;;     (pipe/sort-by identity)
+;;     (pipe/take 5)
+;;     (pipe/group-by (fn [x] (if (> x 10) "big" "small"))))
+;;
+;; 또는 선언형:
+;;   (pipe/build
+;;     [:source data]
+;;     [:filter "age > 25"]      ← 문자열 조건
+;;     [:map    "salary * 1.1"]  ← 문자열 변환
+;;     [:sort   "salary" :desc]
+;;     [:take   10])
+;; ─────────────────────────────────────────────────────────────
+
+;; ── 스텝 생성자 ─────────────────────────────────────────────
+
+(defn pipe/filter [pred]
+  {:type "filter" :fn pred})
+
+(defn pipe/map [f]
+  {:type "map" :fn f})
+
+(defn pipe/flat-map [f]
+  {:type "flat-map" :fn f})
+
+(defn pipe/take [n]
+  {:type "take" :n n})
+
+(defn pipe/drop [n]
+  {:type "drop" :n n})
+
+(defn pipe/take-while [pred]
+  {:type "take-while" :fn pred})
+
+(defn pipe/drop-while [pred]
+  {:type "drop-while" :fn pred})
+
+(defn pipe/sort-by [key-fn]
+  {:type "sort-by" :fn key-fn :asc true})
+
+(defn pipe/sort-by-desc [key-fn]
+  {:type "sort-by" :fn key-fn :asc false})
+
+(defn pipe/group-by [key-fn]
+  {:type "group-by" :fn key-fn})
+
+(defn pipe/partition-by [pred]
+  {:type "partition-by" :fn pred})
+
+(defn pipe/distinct []
+  {:type "distinct"})
+
+(defn pipe/reverse []
+  {:type "reverse"})
+
+(defn pipe/frequencies []
+  {:type "frequencies"})
+
+(defn pipe/reduce [f init]
+  {:type "reduce" :fn f :init init})
+
+(defn pipe/each [f]
+  {:type "each" :fn f})
+
+(defn pipe/tap [label]
+  {:type "tap" :label label})
+
+;; ── 스텝 실행 ───────────────────────────────────────────────
+
+(defn pipe/exec-step [data step]
+  (let [t (get step "type")]
+    (case t
+      "filter"     (filter (get step "fn") data)
+      "map"        (map (get step "fn") data)
+      "flat-map"   (mapcat (get step "fn") data)
+      "take"       (take (get step "n") data)
+      "drop"       (drop (get step "n") data)
+      "take-while" (take-while (get step "fn") data)
+      "drop-while" (drop-while (get step "fn") data)
+      "sort-by"    (if (get step "asc")
+                     (sort-by (get step "fn") data)
+                     (sort-by (fn [x] (- ((get step "fn") x))) data))
+      "group-by"   (group-by (get step "fn") data)
+      "partition-by" (partition-by (get step "fn") data)
+      "distinct"   (distinct data)
+      "reverse"    (reverse data)
+      "frequencies" (frequencies data)
+      "reduce"     (reduce (get step "fn") (get step "init") data)
+      "each"       (do (doseq [x data] ((get step "fn") x)) data)
+      "tap"        (do (println (str "  [" (get step "label") "] count=" (length data)
+                                     " sample=" (str (first data))))
+                       data)
+      data)))
+
+;; ── 파이프라인 실행 ─────────────────────────────────────────
+
+(defn pipe/run [data steps]
+  (reduce pipe/exec-step data steps))
+
+;; ── 파이프라인 객체 (체이닝) ─────────────────────────────────
+
+(defn pipe/new [data]
+  {:data data :steps []})
+
+(defn pipe/add [pipeline step]
+  (assoc pipeline "steps" (conj (get pipeline "steps") step)))
+
+(defn pipe/exec [pipeline]
+  (reduce pipe/exec-step
+          (get pipeline "data")
+          (get pipeline "steps")))
+
+;; ── 집계 헬퍼 ───────────────────────────────────────────────
+
+(defn pipe/count [data] (length data))
+
+(defn pipe/sum-by [f data]
+  (sum (map f data)))
+
+(defn pipe/avg-by [f data]
+  (average (map f data)))
+
+(defn pipe/max-by-field [f data]
+  (reduce (fn [acc x]
+            (if (> (f x) (f acc)) x acc))
+          (first data)
+          (rest data)))
+
+(defn pipe/min-by-field [f data]
+  (reduce (fn [acc x]
+            (if (< (f x) (f acc)) x acc))
+          (first data)
+          (rest data)))
+
+;; ── 통계 요약 ───────────────────────────────────────────────
+
+(defn pipe/stats [data f]
+  (let [vals (map f data)]
+    {:count (length vals)
+     :sum   (sum vals)
+     :avg   (average vals)
+     :min   (apply min vals)
+     :max   (apply max vals)}))