1
2
3
4
5
(print
   (letfn [(even [n] (= (mod n 2) 0))
           (odd [n] (not (even n)))] 
   (odd 8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (mod n 2) 0))
           (odd [n] (not (even n)))] 
   (odd -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (mod n 2) 0))
           (odd [n] (not (even n)))] 
   (odd -9)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (mod n 2) 0))
           (odd [n] (= (mod n 2) 1))] 
   (odd -9)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (rem n 2) 0))
           (odd [n] (= (rem n 2) 1))] 
   (odd -9)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (rem n 2) 0))
           (odd [n] (= (rem n 2) 1))] 
   (odd -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (rem n 2) 0))
           (odd [n] (= (rem n 2) 1))] 
   (odd 8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (rem n 2) 0))
           (odd [n] (= rem n 2) 1)] 
   (odd 8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (rem n 2) 0))
           (odd [n] (= rem n 2) 1)] 
   (even -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (rem n 2) 0))
           (odd [n] (= rem n 2) 1)] 
   (odd -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (rem n 2) 0))
           (odd [n] (= rem n 2) 1)] 
   (even -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (rem n 2) 0))
           (odd [n] (cond (= n 0) false (< n 0) (even (+ n 1)) (> n 0) (even (+ n 1))))] 
   (even -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (mod n 2) 0))
           (odd [n] (cond (= n 0) false (< n 0) (even (+ n 1)) (> n 0) (even (+ n 1))))] 
   (even -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (= (mod n) 0))
           (odd [n] (cond (= n 0) false (< n 0) (even (+ n 1)) (> n 0) (even (+ n 1))))] 
   (even -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (cond (= n 0) true (< n 0) (odd (+ n 1)) (> n 0) (odd (- n 1))))
           (odd [n] (cond (= n 0) false (< n 0) (even (+ n 1)) (> n 0) (even (+ n 1))))] 
   (even -8)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (cond (= n 0) true (< n 0) (odd (+ n 1)) (> n 0) (odd (- n 1))))
           (odd [n] (cond (= n 0) false (< n 0) (even (+ n 1)) (> n 0) (even (+ n 1))))] 
   (even -9)))
   

1
2
3
4
5
(print
   (letfn [(even [n] (cond (= n 0) true (< n 0) (odd (+ n 1)) (> n 0) (odd (- n 1))))
           (odd [n] (cond (= n 0) false (< n 0) (even (+ n 1) (> n 0) (even (+ n 1)))))] 
   (even -9)))
   

1
2
3
4
(print
   (letfn [(even [n] (if (= n 0) true (odd (- n 1))))
         (odd [n] (if (= n 0) false (even (- n 1))))] 
   (even -1)))

1
2
3
4
5
6
7
8
9
v################################################
v################################################
>###8995*\9-13\##>-p55:2**3$#!+59*:!3$9$$2+2p6v##
v############################################$<##
v##########################?#####################
1################################################
4#####?##########>v##############################
8##########>##v##$ ##############################
*###########>v#########################v-<#######
 ...

1
2
3
4
(print
   (letfn [(even [n] (if (= n 0) true (odd (- n 1))))
         (odd [n] (if (= n 0) false (even (- n 1))))] 
   (even 24)))

1
0><|=02|), )-(4|_||°7574|)7 |)32 3|\|61!5()-(3|\| 624|=5()-(4|=7 0><|=02|)5)-(!23 I33)-(32I33267 3!|\|!63 31!73|_||\|!\/325!7°A°73|\|. |_||\||) |)|_| 63)-(°O°257 4|_|()-( z|_| 3!|\|32 31!73 - |)3|\||\| |)|_| |<4|\||\|57 |)!353|\| 73><7 1353|\| |)32 !|\| 13375|°34|< 635()-(2!3I33|\| !57. \/\/45 ? |)|_| )-(457 \/02)-(32 |\|0()-( |\|!3 \/\/45 |)4\/0|\| 63)-(°O°27 ? 72°O°573 |)!()-( 35 63)-(7 \/!313|\| 50. 3|\|7\/\/3|)32 I3!57 |)|_| °U°I332 |)3|\| )-(!|\|7 )-(!32 )-(32 63|<0/\/\/\/\3|\| 0|)32 |)|_| \/\/4257 5()-(0|\| !/\/\/\/\32 3!|\| \/\/!553|\||)32. 3!|\|3213!, _|37z7 63)-(7 35 4I3 !|\| |)!3 |\|47|_|2. |)3|\| (4()-(3 5|_|()-(3|\|. |_||\||) |)3|\| |=!|\||)357 |)|_| )-(!32: |\|02|) \/!32 4()-(7 624|) |\||_|11 4()-(7 |°|_||\||<7 \/!32 5!3I33|\| |=°U°|\||= 057 |\||_|11 3!|\|5 53()-(5 624|) 3!|\|5 |=°U°|\||= |°|_||\||<7 |\||_|11 |\|3|_||\| |=°U°|\||= \/!31 5|°4ß |_||\||) 32|=016. 

1
(doc conj)

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

1
(println (conj '(2 3) 1))

1
2
(doseq [[dimension amount] {:width 10, :height 20, :depth 15}]
  (println (str dimension ":") amount "inches"))

1
2
(doseq [[dimension amount] {:width 10, :height 20, :depth 15}]
  (println (str (dimension) ":") amount "inches"))

1
2
(doseq [[dimension amount] {:width 10, :height 20, :depth 15}]
  (println (str (name dimension) ":") amount "inches"))

1
2
3
4
5
6
7
(defn strict-map2 [f coll]
  (loop [coll coll, acc []]
    (if (empty? coll)
      acc
      (recur (next coll) (conj acc (f (first coll)))))))
 
(println (strict-map2 - (range 5)))

1
2
3
4
5
6
7
(defn strict-map2 [f coll]
  (loop [coll coll, acc []]
    (if (empty? coll)
      acc
      (recur (next coll) (conj acc (f (first coll)))))))
 
(strict-map2 - (range 5))

1
2
3
4
5
6
7
8
9
(def my-stack [1 2 3])
 
(println (peek my-stack))
 
(println (pop my-stack))
 
(println (conj my-stack 4))
 
(println (+ (peek my-stack) (peek (pop my-stack))))