Clojure

;; 1. 기본 데이터 구조와 불변성
(def user {:name "홍길동" :age 25 :email "hong@example.com"})

;; assoc은 새로운 맵을 반환 (원본 변경 없음)
(def updated-user (assoc user :age 26))
(println (:age user))         ; 25 (원본 유지)
(println (:age updated-user)) ; 26 (새 맵)

;; 2. 함수형 프로그래밍
(defn process-numbers [numbers]
  (->> numbers
       (filter even?)           ; 짝수만 필터링
       (map #(* % %))           ; 제곱
       (reduce +)))             ; 합계

(println (process-numbers [1 2 3 4 5 6 7 8 9 10])) ; 220

;; 3. 동시성 - Atom을 사용한 안전한 상태 관리
(def counter (atom 0))

(defn increment-counter []
  (swap! counter inc))

;; 여러 스레드에서 안전하게 호출 가능
(doall (pmap (fn [_] (increment-counter)) (range 1000)))
(println @counter) ; 1000

;; 4. Java 상호운용
(import '[java.time LocalDateTime]
        '[java.time.format DateTimeFormatter])

(defn current-time-formatted []
  (let [now (LocalDateTime/now)
        formatter (DateTimeFormatter/ofPattern "yyyy-MM-dd HH:mm:ss")]
    (.format now formatter)))

(println (current-time-formatted)) ; "2025-01-25 14:30:00"

;; 5. 매크로 - 코드 생성
(defmacro when-valid [condition & body]
  `(when ~condition
     (try
       ~@body
       (catch Exception e#
         (println "오류 발생:" (.getMessage e#))))))