***
***
***
***
```clojure (+ 1 2 3) (+ 1 2 3) 6 ;; 6
```클로주리 ```clojure (레트 [스 1 이 2 스 3] (+ 스 이 스)) (let [x 1 y 2 z 3] (+ x y z)) 6 ;; 6
```클로주리 ```clojure (한지 10) (range 10) (0 1 2 3 4 5 6 7 8 9) ;; (0 1 2 3 4 5 6 7 8 9)
```클로주리 ```clojure (레트[[이 응 드][2026 2 25]흐 43 이 57400 응 19 드(모드 흐 응)브(+ 흐 드)응(쿠오트 흐 응)응(+(- 이 흐)이 드 응(.제트다요피에아르(자바.치미.로카우다치/오프 이 응 드)))프 #(샤르(느트(마프카트 한지[브 65 97][(+ 브(* 응 드))(+ 브 흐)(+ 97 드 응)])(모드(쿠오트 응 %)흐)))](스트르(프(* 흐 흐))(프 흐)(프 1))) (let[[y m d][2026 2 25]r 43 e 57400 n 19 D(mod r n)b(+ r D)M(quot r n)N(+(- y r)e D M(.getDayOfYear(java.time.LocalDate/of y m d)))f #(char(nth(mapcat range[b 65 97][(+ b(* M D))(+ b r)(+ 97 D M)])(mod(quot N %)r)))](str(f(* r r))(f r)(f 1))) "6크" ;; "W6K"
```클로주리 ```clojure
```클로주리 ```clojure (제루? 0) (zero? 0) 트루이 ;; true
```클로주리 ```clojure (응스 응스1) (데픙 아베라지 [& 눔스] (/ (헤두시 + 눔스) (콘트 눔스))) [(아베라지 4 11) (아베라지 3.0 72 9.6 33)] (ns ns1) (defn average [& nums] (/ (reduce + nums) (count nums))) [(average 4 11) (average 3.0 72 9.6 33)] [15/2 29.4] ;; [15/2 29.4]
```클로주리 ```clojure (프린틀릉 (((픙 [프] ((픙 [스] (프 (픙 [브] ((스 스) 브)))) (픙 [스] (프 (픙 [브] ((스 스) 브)))))) (픙 [그] (픙 [나미] (스트르 "엘루, " 나미 "!")))) "종 도이")) (println (((fn [f] ((fn [x] (f (fn [v] ((x x) v)))) (fn [x] (f (fn [v] ((x x) v)))))) (fn [g] (fn [name] (str "Hello, " name "!")))) "John Doe")) 엘루, 종 도이! ;; Hello, John Doe!
```클로주리 ```clojure (헤키리 '[클로주리.세트 :아스 스]) (데프 아-보웨우스 #{\아 \이 \이 \우 \우 \스 \이 \스}) (데프 브-보웨우스 #{\아 \이 \이 \우 \우}) [(스/지페렌시 아-보웨우스 브-보웨우스) (스/우니옹 아-보웨우스 브-보웨우스) (스/인테르섹치옹 아-보웨우스 브-보웨우스)] (require '[clojure.set :as s]) (def a-vowels #{\a \e \i \o \u \x \y \z}) (def b-vowels #{\a \e \i \o \u}) [(s/difference a-vowels b-vowels) (s/union a-vowels b-vowels) (s/intersection a-vowels b-vowels)] [#{\스 \이 \스} #{\아 \이 \이 \우 \우 \스 \이 \스} #{\아 \이 \이 \우 \우}] ;; [#{\x \y \z} #{\a \e \i \o \u \x \y \z} #{\a \e \i \o \u}]
```클로주리 ```clojure (데프 바스카라 (픙 [아 브 크] (이프 (오르 (니우? 아) (니우? 브) (니우? 크)) 니우 (레트 [데우타 (- (* 브 브) (* 4 아 크))] (이프 (< 데우타 0) 니우 (리스트 (/ (+ (- 브) (마트/스크르트 데우타)) (* 2 아)) (/ (- (- 브) (마트/스크르트 데우타)) (* 2 아)))))))) (바스카라 1 -5 6) (def bhaskara (fn [a b c] (if (or (nil? a) (nil? b) (nil? c)) nil (let [delta (- (* b b) (* 4 a c))] (if (< delta 0) nil (list (/ (+ (- b) (Math/sqrt delta)) (* 2 a)) (/ (- (- b) (Math/sqrt delta)) (* 2 a)))))))) (bhaskara 1 -5 6) (3.0 2.0) ;; (3.0 2.0)
```클로주리 ```clojure (데프마크루 데페스펜시스 [나미 & 이스펜시스] `(데프 응나미 (아통 '응이스펜시스))) (데픙 아드-이스펜시 [아통-이스펜시 아몬트] (스와프! 아통-이스펜시 콘즈 아몬트)) (데픙 숭-이스펜시스 [& 아톰스] (헤두시 + (마프 #(아플리 + @%) 아톰스))) (데페스펜시스 페르송-1 1200 800 450) (데페스펜시스 페르송-2 1000 600 300) (데페스펜시스 페르송-3 1500 900 550) (아드-이스펜시 페르송-1 200) (아드-이스펜시 페르송-2 100) (아드-이스펜시 페르송-3 150) (숭-이스펜시스 페르송-1 페르송-2 페르송-3) (defmacro defexpenses [name & expenses] `(def ~name (atom '~expenses))) (defn add-expense [atom-expense amount] (swap! atom-expense conj amount)) (defn sum-expenses [& atoms] (reduce + (map #(apply + @%) atoms))) (defexpenses person-1 1200 800 450) (defexpenses person-2 1000 600 300) (defexpenses person-3 1500 900 550) (add-expense person-1 200) (add-expense person-2 100) (add-expense person-3 150) (sum-expenses person-1 person-2 person-3) 7750 ;; 7750
```클로주리 ```clojure (데픙 도트-프로둑트 [브1 브2] (헤두시 + (마프 * 브1 브2))) (데픙 아드-일레멘트스 [브1 브2] (마프브 + 브1 브2)) (데픙 아플리-웨이그트스 [인푸트 라예르-웨이그트스 라예르-비아지스] (마프브 (픙 [ 브] (+ (도트-프로둑트 인푸트 ) 브)) 라예르-웨이그트스 라예르-비아지스)) (데픙 악치바치옹-풍크치옹 [인푸트] (마프브 #(마트/탄 %) 인푸트)) (데픙 네우라우-네트워르크 [인푸트 웨이그트스 비아지스 악치바치옹-픙] (레트 [라예르-오트푸트스 (마프 (픙 [ 브] (악치바치옹-픙 (아플리-웨이그트스 인푸트 브))) 웨이그트스 비아지스)] (라스트 라예르-오트푸트스))) (데프 인푸트-1 [0.1 0.2 0.3]) (데프 인푸트-2 [0.4 0.5 0.6]) (데프 웨이그트스-1 [[0.1 0.2 0.3] [0.4 0.5 0.6] [0.7 0.8 0.9]]) (데프 비아지스-1 [0.1 0.2 0.3]) (데프 웨이그트스-2 [[0.1 0.2 0.3] [0.4 0.5 0.6]]) (데프 비아지스-2 [0.1 0.2]) (레트 [인푸트스 [인푸트-1 인푸트-2] 웨이그트스 [웨이그트스-1 웨이그트스-2] 비아지스 [비아지스-1 비아지스-2]] (마프브 #(네우라우-네트워르크 % 웨이그트스 비아지스 악치바치옹-풍크치옹) 인푸트스)) (defn dot-product [v1 v2] (reduce + (map * v1 v2))) (defn add-elements [v1 v2] (mapv + v1 v2)) (defn apply-weights [input layer-weights layer-biases] (mapv (fn [w b] (+ (dot-product input w) b)) layer-weights layer-biases)) (defn activation-function [input] (mapv #(Math/tanh %) input)) (defn neural-network [input weights biases activation-fn] (let [layer-outputs (map (fn [w b] (activation-fn (apply-weights input w b))) weights biases)] (last layer-outputs))) (def input-1 [0.1 0.2 0.3]) (def input-2 [0.4 0.5 0.6]) (def weights-1 [[0.1 0.2 0.3] [0.4 0.5 0.6] [0.7 0.8 0.9]]) (def biases-1 [0.1 0.2 0.3]) (def weights-2 [[0.1 0.2 0.3] [0.4 0.5 0.6]]) (def biases-2 [0.1 0.2]) (let [inputs [input-1 input-2] weights [weights-1 weights-2] biases [biases-1 biases-2]] (mapv #(neural-network % weights biases activation-function) inputs)) [[0.23549574953849794 0.47770001216849795] [0.39693043200507755 0.7487042869693086]] ;; [[0.23549574953849794 0.47770001216849795] [0.39693043200507755 0.7487042869693086]]
```클로주리 ```clojure (데프 스 (-> (프로미지) (델리베르 "테스트"))) (def x (-> (promise) (deliver "text"))) @스 @x #'우제르/스 ;; #'user/x
```클로주리 ```clojure (레트 [[이1 응1 드1] [2026 1 21] [이2 응2 드2] [2026 4 21] 흐 43 이 57400 응 19 드 (모드 흐 응) 브 (+ 흐 드) 응 (쿠오트 흐 응) 흐흐 (* 흐 흐) 아 (베크 (마프카트 한지 [브 65 97] [(+ 브 (* 응 드)) (+ 브 흐) (+ 97 드 응)])) 크 (픙 [응 프] (샤르 (느트 아 (모드 (쿠오트 응 프) 흐)))) 스 (자바.치미.로카우다치/오프 이1 응1 드1) 트 (자바.치미.로카우다치/오프 이2 응2 드2)] (도제크 [드트 (타키-일리 #(노트 (.이자프테르 % 트)) (이테라치 #(.플루즈다이스 % 1) 스))] (레트 [이 (.제치에아르 드트) 응 (+ (- 이 흐) 이 드 응 (.제트다요피에아르 드트)) 도 (.제트다요프웨크 드트) 도스 (.제트지스플라이나미 도 자바.치미.포르마트.테스트스칠리/소르트 자바.우치우.로칼리/우스)] (프린트프 "%스 %스(%드) %크%크%크\응" 드트 도스 (.제트발루이 도) (크 응 흐흐) (크 응 흐) (크 응 1)))) (플루즈)) (let [[y1 m1 d1] [2026 1 21] [y2 m2 d2] [2026 4 21] r 43 e 57400 n 19 D (mod r n) b (+ r D) M (quot r n) rr (* r r) A (vec (mapcat range [b 65 97] [(+ b (* M D)) (+ b r) (+ 97 D M)])) c (fn [N p] (char (nth A (mod (quot N p) r)))) s (java.time.LocalDate/of y1 m1 d1) t (java.time.LocalDate/of y2 m2 d2)] (doseq [dt (take-while #(not (.isAfter % t)) (iterate #(.plusDays % 1) s))] (let [y (.getYear dt) N (+ (- y r) e D M (.getDayOfYear dt)) dow (.getDayOfWeek dt) dowS (.getDisplayName dow java.time.format.TextStyle/SHORT java.util.Locale/US)] (printf "%s %s(%d) %c%c%c\n" dt dowS (.getValue dow) (c N rr) (c N r) (c N 1)))) (flush)) 2026-01-21 웨드(3) 5스 ;; 2026-01-21 Wed(3) W5S 2026-01-22 투(4) 5트 ;; 2026-01-22 Thu(4) W5T 2026-01-23 프리(5) 5우 ;; 2026-01-23 Fri(5) W5U 2026-01-24 사트(6) 5브 ;; 2026-01-24 Sat(6) W5V 2026-01-25 숭(7) 5 ;; 2026-01-25 Sun(7) W5W 2026-01-26 몽(1) 5스 ;; 2026-01-26 Mon(1) W5X 2026-01-27 투이(2) 5이 ;; 2026-01-27 Tue(2) W5Y 2026-01-28 웨드(3) 5스 ;; 2026-01-28 Wed(3) W5Z 2026-01-29 투(4) 5아 ;; 2026-01-29 Thu(4) W5a 2026-01-30 프리(5) 5브 ;; 2026-01-30 Fri(5) W5b 2026-01-31 사트(6) 5크 ;; 2026-01-31 Sat(6) W5c 2026-02-01 숭(7) 5드 ;; 2026-02-01 Sun(7) W5d 2026-02-02 몽(1) 5이 ;; 2026-02-02 Mon(1) W5e 2026-02-03 투이(2) 5프 ;; 2026-02-03 Tue(2) W5f 2026-02-04 웨드(3) 5그 ;; 2026-02-04 Wed(3) W5g 2026-02-05 투(4) 60 ;; 2026-02-05 Thu(4) W60 2026-02-06 프리(5) 61 ;; 2026-02-06 Fri(5) W61 2026-02-07 사트(6) 62 ;; 2026-02-07 Sat(6) W62 2026-02-08 숭(7) 63 ;; 2026-02-08 Sun(7) W63 2026-02-09 몽(1) 64 ;; 2026-02-09 Mon(1) W64 2026-02-10 투이(2) 65 ;; 2026-02-10 Tue(2) W65 2026-02-11 웨드(3) 66 ;; 2026-02-11 Wed(3) W66 2026-02-12 투(4) 67 ;; 2026-02-12 Thu(4) W67 2026-02-13 프리(5) 68 ;; 2026-02-13 Fri(5) W68 2026-02-14 사트(6) 69 ;; 2026-02-14 Sat(6) W69 2026-02-15 숭(7) 6아 ;; 2026-02-15 Sun(7) W6A 2026-02-16 몽(1) 6브 ;; 2026-02-16 Mon(1) W6B 2026-02-17 투이(2) 6크 ;; 2026-02-17 Tue(2) W6C 2026-02-18 웨드(3) 6드 ;; 2026-02-18 Wed(3) W6D 2026-02-19 투(4) 6이 ;; 2026-02-19 Thu(4) W6E 2026-02-20 프리(5) 6프 ;; 2026-02-20 Fri(5) W6F 2026-02-21 사트(6) 6그 ;; 2026-02-21 Sat(6) W6G 2026-02-22 숭(7) 6 ;; 2026-02-22 Sun(7) W6H 2026-02-23 몽(1) 6이 ;; 2026-02-23 Mon(1) W6I 2026-02-24 투이(2) 6즈 ;; 2026-02-24 Tue(2) W6J 2026-02-25 웨드(3) 6크 ;; 2026-02-25 Wed(3) W6K 2026-02-26 투(4) 6르 ;; 2026-02-26 Thu(4) W6L 2026-02-27 프리(5) 6응 ;; 2026-02-27 Fri(5) W6M 2026-02-28 사트(6) 6응 ;; 2026-02-28 Sat(6) W6N 2026-03-01 숭(7) 6우 ;; 2026-03-01 Sun(7) W6O 2026-03-02 몽(1) 6프 ;; 2026-03-02 Mon(1) W6P 2026-03-03 투이(2) 6크 ;; 2026-03-03 Tue(2) W6Q 2026-03-04 웨드(3) 6흐 ;; 2026-03-04 Wed(3) W6R 2026-03-05 투(4) 6스 ;; 2026-03-05 Thu(4) W6S 2026-03-06 프리(5) 6트 ;; 2026-03-06 Fri(5) W6T 2026-03-07 ;; 2026-03-07 ... 안드 1002 모리 샤르스 ;; ... and 1002 more chars
--- --- --- ---