1
2
3
4
5
6
7
(defn filt[n] (when (even? n) n))
(println filt[1])
(println filt[2])
(println filt[3])
(println filt[4])
 
(println (some #(when (even? %) %) [1 2 3 4]))

1
(println (some #(when (even? %) %) [1 2 3 4]))

1
(some #(when (even? %) %) [1 2 3 4]))

1
2
3
4
5
6
7
8
(println
 
(
#(reduce *(range 1 (inc %)))
4
)
 
)

1
2
3
4
5
6
7
8
(println
 
(
#(reduce *(range 1 (inc %)))
7
)
 
)

1
2
3
4
5
6
7
8
(println
 
(
#(range 1 (inc %))
7
)
 
)

1
2
3
(println
 (reduce * (range 1 4))
)

1
2
3
4
5
6
7
8
(println
 
(
#(range 1 %)
7
)
 
)

1
2
3
4
5
6
7
8
(println
 
(
#(range %)
7
)
 
)

1
2
3
4
(
#(range %)
7
)

1
2
3
4
5
6
7
(defn fac[n]
  (if (> n 1)
       (* n (recur (dec n)))
       1
  )
)
(println (fac 4))

1
2
3
4
5
6
7
(defn fac[n]
  (if (> n 1)
       (* n (fac (dec n)))
       1
  )
)
(println (fac 4))

1
2
3
4
5
6
(println
(
#(if (< 2 %1) 1 (recur (* %1 (inc %1))))
3
)
)

1
2
3
4
(
#(if (< 2 %1) 1 (recur (* %1 (inc %1))))
3
)

1
2
3
(println (let [my-vector [:a :b :c]]
  (into my-vector (range 10)))
)

1
2
(println (= [1 2 3] #{1 2 3})
)

1
2
(println (= [1 2 3] {1 2 3})
)

1
2
(println (= [1 2 3] '(4 2 3))
)

1
2
(println (= [1 2 3] '(1 2 3))
)

1
2
3
(def ds (into-array [:willie :barnabas :adam]))
(aset ds 1 :quentin)
(println (seq ds))

1
2
(def ds (into-array [:willie :barnabas :adam]))
(println (seq ds))

1
(println (#(/ 10 %1) 5 nil))

1
(println (#(/ 10 %1) 5))

1
(println (#(/ 10 5)))

1
(println #(/ 10 5))

1
(println (for [x (range 2) y (range 2)] [x y (bit-xor x y)]))

1
(println (map (bit-xor (for [x (range 2) y (range 2)] [x y]))))

1
(find-doc "xor")

1
(println (for [x (range 2) y (range 2)] [x y]))

1
(for [x (range 2) y (range 2)] [x y])