(ns clojure.examples.example (:gen-class)) (defn Example [] (defstruct Employee :EmployeeName :Employeeid)

(ns clojure.examples.example (:gen-class)) (defn Example [] (defstruct Employee :EmployeeName :Employeeid)

(ns clojure.examples.example (:gen-class)) (defn Example [] (println (defstruct Employee :EmployeeName :Employeeid)))

(ns clojure.examples.example (:gen-class)) (defn Example [] (def my-map (with-meta [1 2 3] {:prop "values"}))

(ns clojure.examples.example (:require [clojure.data.json :as json]) (:gen-class)) (defn Example [] (println (json/write-str {:a 1 :b 2})))

(ns clojure.examples.example (:gen-class)) (defn Example [] (def names (ref [])) (defn change [newname] (dosync

(ns Project (:gen-class)) (defn Example [] (println (.. System getProperties (get "java.version"))))

// Clojure Java内置函数 (ns Project (:gen-class)) (defn Example [] (println (. Math PI))) (Example)

(ns Project (:gen-class)) (import java.util.Stack) (defn Example [] (let [stack (Stack.)] (.push stack "First Element")

(ns Project (:gen-class)) (defn Example [] (def my-int(new Integer 1)) (println (+ 2 my-int))) (Example)

(ns Project (:gen-class)) (defn Example [] (def str1 (new String "Hello")) (println str1)) (Example)

(ns Project (:gen-class)) (defn Example [] (println (.indexOf "Hello World","e"))) (Example)

(ns Project (:gen-class)) (defn Example [] (println (.toUpperCase "Hello World"))) (Example)

(ns clojure.examples.example (:gen-class)) (defn Example [] (def counter (ref 0)) (defn change [counter] (dosync

(ns clojure.examples.example (:gen-class)) (defn Example [] (def names (ref [])) (defn change [newname] (dosync

(ns clojure.examples.example (:gen-class)) (defn Example [] (def names (ref [])) (defn change [newname] (dosync

(ns clojure.examples.example (:gen-class)) (defn Example [] (def my-ref (ref 1 :validator pos?)) (dosync (ref-set my-ref 2))

(ns clojure.examples.example (:gen-class)) (defn Example [] (def my-ref (ref 1 :validator pos?)) (println @my-ref))

(ns clojure.examples.example (:gen-class)) (defn Example [] (defmacro Simple [arg] (list 2 arg)) (println (macroexpand '(Simple 2))))

(ns clojure.examples.example (:gen-class)) (defn Example [] (defmacro Simple [] (println "Hello"))

(ns clojure.examples.example (:gen-class)) (defn Example [] (defmacro Simple [] (println "Hello"))

(ns clojure.examples.example (:gen-class)) (defn Example [] (def x (atom 0)) (add-watch x :watcher (fn [key atom old-state new-state]