mirror of
https://github.com/super-linter/super-linter.git
synced 2024-11-06 09:15:49 -05:00
35 lines
492 B
Clojure
35 lines
492 B
Clojure
|
(ns foo
|
||
|
|
(:require
|
||
|
|
[clojure.string :as str]))
|
||
|
|
|
||
|
|
(butlast [1 2 3])
|
||
|
|
|
||
|
|
(str/join "" "")
|
||
|
|
|
||
|
|
(defn foo-fn [x]
|
||
|
|
(let [y (fn [] (inc x))
|
||
|
|
z y]
|
||
|
|
(y)))
|
||
|
|
|
||
|
|
(letfn
|
||
|
|
[(f [g] (h g))
|
||
|
|
(h [i] (f i))])
|
||
|
|
|
||
|
|
(defn foo [] 1)
|
||
|
|
(inc (foo))
|
||
|
|
|
||
|
|
(Thread/sleep 1000 1)
|
||
|
|
|
||
|
|
;; Here we switch to another namespace and require the previous:
|
||
|
|
(ns bar (:require [foo :as f]))
|
||
|
|
|
||
|
|
(f/foo-fn 1)
|
||
|
|
|
||
|
|
{:a 1 :b 2}
|
||
|
|
#{1 2}
|
||
|
|
{:a 1 :b 2}
|
||
|
|
|
||
|
|
(ns bar-test (:require [clojure.test :as t]))
|
||
|
|
|
||
|
|
(t/deftest my-tests
|
||
|
|
(t/is (odd? (inc 1))))
|