1
`map

1
2
3
4
5
(def tena 9)
(quote tena)
(println tena)
(println (cons 1 (quote (2 3)))
)

1
2
3
4
(def tena 9)
(quote tena)
(println tena)
(println (quote tena))

1
2
(fn [x] (println x) (recur x)) 
42

1
2
3
(fn [x] (recur x) (println x))
 
42

1
(fn [x] (recur x) (println x))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [i 2, sum 0, idummy true]
    (if (and (not (== i max)) idummy)
      (recur (inc i) (+ sum i) true)
      sum)))
 
(println (sum-up-to 5))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [i 2, sum 0, idummy true]
    (if (and (not (== i max) idummy))
      (recur (inc i) (+ sum i) true)
      sum)))
 
(println (sum-up-to 5))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [i 2, sum 0, idummy true]
    (if (and (not i max) idummy)
      (recur (inc i) (+ sum i) true)
      sum)))
 
(println (sum-up-to 5))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [i 2, sum 0, dummy true]
    (if (<= i max)
      (recur (inc i) (+ sum i) false)
      sum)))
 
(println (sum-up-to 5))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [sum 0, i 2, dummy true]
    (if (<= i max)
      (recur (+ sum i) (inc i) false)
      sum)))
 
(println (sum-up-to 5))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [sum 0, i 1, dummy true]
    (if (and (<= i max) dummy)
      (recur (+ sum i) (inc i) false)
      sum)))
 
(println (sum-up-to 4))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [i 0, sum 0, dummy true]
    (if (<= i max)
      (recur (inc i) (+ sum i) false)
      sum)))
 
(println (sum-up-to 4))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [sum 0, i 0, dummy true]
    (if (and (<= i max) dummy)
      (recur (+ sum i) (inc i) false)
      sum)))
 
(println (sum-up-to 4))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [sum 0, i 0, dummy true]
    (if (<= i max)
      (recur (+ sum i) (inc i) false)
      sum)))
 
(println (sum-up-to 4))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [sum 0, i 0, dummy true]
    (if (< i max)
      (recur (+ sum i) (inc i) false)
      sum)))
 
(println (sum-up-to 4))

1
2
3
4
5
6
7
(defn sum-up-to [max]
  (loop [sum 0, i 0, dummy true]
    (if (< i max)
      (recur (+ sum x) (inc i) false)
      sum)))
 
(println (sum-up-to 4))

1
2
3
4
5
6
7
(defn sum-down-from [initial-x]
  (loop [iter 0, x initial-x, dummy true]
    (if dummy
      (recur (+ iter x) (dec x) false)
      iter)))
 
(println (sum-down-from 4))

1
2
3
4
5
6
7
(defn sum-down-from [initial-x]
  (loop [iter 0, x initial-x, dummy true]
    (if (dummy)
      (recur (+ iter x) (dec x) false)
      iter)))
 
(println (sum-down-from 4))

1
2
3
4
5
6
7
(defn sum-down-from [initial-x]
  (loop [iter 0, x initial-x, dummy true]
    (if (pos? x)
      (recur (+ iter x) (dec x) false)
      iter)))
 
(println (sum-down-from 4))

1
2
3
4
5
6
7
(defn sum-down-from [initial-x]
  (loop [iter 0, x initial-x]
    (if (pos? x)
      (recur (+ iter x) (dec x))
      iter)))
 
(println (sum-down-from 4))

1
2
3
4
5
6
7
(defn sum-down-from [initial-x]
  (loop [sum 0, x initial-x]
    (if (pos? x)
      (recur (+ sum x) (dec x))
      sum)))
 
(println (sum-down-from 4))

1
2
3
4
5
6
7
(defn sum-down-from [initial-x]
  (loop [sum 0, x initial-x]
    (if (pos? x)
      (recur (+ sum x) (dec x))
      sum)))
 
(println sum-down-from 4)

1
print "nya"

1
2
3
4
5
6
(defn print-up-from [x]
  (if (neg? x)
    (println x)
    (print-up-from (inc x))))
 
(print-up-from -4)

1
2
3
4
5
6
7
(defn print-up-from [x]
  (when (neg? x)
    (println x)
    (println x)
    (print-up-from (inc x))))
 
(print-up-from -4)

1
2
3
4
5
6
7
(defn print-up-from [x]
  (when (neg? x)
    (println x)
    (println x)
    (print-up-from (inc x))))
 
(print-down-up -4)

1
2
3
4
5
6
7
(defn print-down-from [x]
  (when (neg? x)
    (println x)
    (println x)
    (recur (inc x))))
 
(print-down-from -4)

1
2
3
4
5
6
(defn print-down-from [x]
  (when (neg? x)
    (println x)
    (recur (inc x))))
 
(print-down-from -4)

1
2
3
4
5
6
(defn print-down-from [x]
  (when (not (pos? x))
    (println x)
    (recur (inc x))))
 
(print-down-from -4)