GetClojure

(print "(inc TimMc)")

nil

"(inc TimMc)"

```
(nth (iterate inc 1) 4)
```
```
5
```
```
(-> \A
    int
    inc
    char)
```
```
\B
```
```
(read-string "#=(inc 54)")
```
```
55
```

(take 7 (iterate inc 0))

(0 1 2 3 4 5 6)

(type (rest (iterate inc 0)))

clojure.lang.Iterate

(some-> 1
        inc
        print
        print)

nil

"2"

(println "(inc gfredericks')")

nil

"(inc gfredericks')\n"

```
(cond-> 12 (pos? -4) inc)
```
```
12
```

(take 20 (iterate inc 0))

(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)

(sequence (map inc) (range 5))

(1 2 3 4 5)

```
((juxt inc identity dec) 0)
```
```
[1 0 -1]
```
```
(let [x inc] (x 1))
```
```
2
```
```
(nth (iterate inc 0) 1000000)
```
```
1000000
```
```
(let [vex inc] (vex 12))
```
```
13
```

(-> 1
    (doto println)
    inc)

"1\n"

(pr-str (str (map inc [1])))

"\"clojure.lang.LazySeq@21\""

(def inc-base-0 (fnil inc 0))

#'user/inc-base-0

```
(meta (with-meta inc {:a 1}))
```
```
{:a 1}
```
```
(dotimes [i 3] (inc i))
```
```
nil
```
```
((juxt dec identity inc) 2)
```
```
[1 2 3]
```
```
(str "(inc TimMc)")
```
```
"(inc TimMc)"
```

(reduce (fn [v f] (f v)) 1 [inc #(* % %) inc])

(macroexpand '(domonad maybe-m [a (when true 1) b (inc a)] (inc b)))

(domonad maybe-m [a (when true 1) b (inc a)] (inc b))

(take 100 (for [x (iterate inc 10) y (iterate inc 10)] [(* x y)]))

([100] [110] [120] [130] [140] [150] [160] [170] [180] [190] [200] [210] [220] [230] [240] [250] [260] [270] [280] [290] [300] [310] [320] [330] [340] [350] [360] [370] [380] [390] [400] [410] [420] [430] [440] [450] [460] [470] [480] [490] [500] [510] [520] [530] [540] [550] [560] [570] [580] [590] [600] [610] [620] [630] [640] [650] [660] [670] [680] [690] [700] [710] [720] [730] [740] [750] [76...

(pr-str (fn [x] (inc x)))

"#object[sci.impl.fns$fun$arity_1__26688 0x1ebec57f \"sci.impl.fns$fun$arity_1__26688@1ebec57f\"]"

```
(update-in {:k 1} [:k] inc)
```
```
{:k 2}
```
```
((comp char inc int) \3)
```
```
\4
```

(->> 5
     range
     (map inc))

(1 2 3 4 5)

```
(let [x 10] (inc x))
```
```
11
```

(defmacro foo1 [] `(inc 2))

#'user/foo1

```
(do (do (do (inc 1))))
```
```
2
```

(macroexpand '(doto x inc))

(clojure.core/let [G__3392547 x]
  (inc G__3392547)
  G__3392547)

(take 20 (iterate inc -10))

(-10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9)

```
(take 5 (iterate inc 1))
```
```
(1 2 3 4 5)
```
```
(if-let [a (inc 0)] a)
```
```
1
```

(print "(inc lazybot)")

nil

"(inc lazybot)"

```
(some inc [1 2 3])
```
```
2
```

(-> 9
    inc
    (repeat 0.0))

(0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0)

```
(defn next [a] (inc a))
```
```
#'user/next
```
```
((comp keyword str inc) 3)
```
```
:4
```
```
(nth (iterate inc 0) 100)
```
```
100
```
```
(((map inc) +) 1 2)
```
```
4
```
```
(take 5 (iterate inc 2))
```
```
(2 3 4 5 6)
```

(str (map inc (range 3)))

"clojure.lang.LazySeq@7861"

```
(dorun (map inc (range 1000)))
```
```
nil
```

(str (map inc (range 5)))

"clojure.lang.LazySeq@1c3e4a2"

(println (map inc (range 99)))

nil

"(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99)\n"

(->> (range 5)
     (map inc))

(1 2 3 4 5)

```
(#(%1 %2) inc 1)
```
```
2
```

<<- <-

12 13 14 15 16 17 18 19 20 21

-> ->>