On 21/08/2014 09:39, Serzh Nechyporchuk wrote:
Can you put all file that you try to load?
Here it is. Just bits and pieces for practice:
(ns gh1.core)
(defn foo
"I don't do a whole lot."
[x]
(println x "Hello, World!"))
(foo "Garry")
(doseq [x [1 2 3 4 5]
y [11 22 33 44 55]]
(prn (* x y)))
(defn mp [] (map #(+ % 5) [1 2 3 4 5]))
(map #(+ % 5) [1 2 3 4 5])
(prn-str {:a 1 :b 2 :c 3})
(defn fill-queue [filler-func]
(let [q (LinkedBlockingQueue. 10)
fill (fn fill [x]
(if (.offer q x 1 TimeUnit/SECONDS)
x
(recur x)))
f (future (filler-func fill) nil)]
((fn drain []
(lazy-seq
(let [x (.take q)]
(cons x (drain))))))))
(defmacro ints [& args]
(assert (every? integer? args))
(vec args))
(defn fints [& args]
(assert (every? integer? args))
(vec args))
(defn testf [x]
(fints x))
(testf 42)
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups "Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
