(take 5 (iterate class 42))

(42 java.lang.Long java.lang.Class java.lang.Class java.lang.Class)

(take 4 (iterate inc 1))

(1 2 3 4)

(take 2 (iterate inc 1))

(1 2)

(take 10 (iterate identity 5))

(5 5 5 5 5 5 5 5 5 5)

(take 10 (iterate rand-int 100))

(100 65 16 0 0 0 0 0 0 0)

(nth (iterate * 1) 1000000)

1

(take 100 (iterate inc 1))

(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
 100)

(defn whole-numbers [] (iterate inc 0))

#'user/whole-numbers

(take 15 (iterate + 0))

(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)

(take 10 (iterate rand-int 50))

(50 1 0 0 0 0 0 0 0 0)

(take 15 (iterate inc 0))

(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)

(take 5 (iterate not 'a))

(a false true false true)

(take 10 (iterate inc 5))

(5 6 7 8 9 10 11 12 13 14)

(take 5 (iterate complement :hi))

(:hi #object
      [clojure.core$complement$fn__5737 0x3b6de760
       "clojure.core$complement$fn__5737@3b6de760"]
     #object
      [clojure.core$complement$fn__5737 0x35aa1e7d
       "clojure.core$complement$fn__5737@35aa1e7d"]
     #object
      [clojure.core$complement$fn__5737 0x31958c10
       "clojure.core$complement$fn__5737@31958c10"]
     #object
      [clojure.core$complement$fn__5737 0x74971446
       "clojure.core$complement$fn__5737@74971446"])

(nth (iterate str -) 25)

"clojure.core$_@173365be"

(take 5 (iterate not :hi))

(:hi false true false true)

(class (rest (iterate inc 0)))

clojure.lang.Iterate

(take-while not-empty (iterate rest (range 4)))

((0 1 2 3) (1 2 3) (2 3) (3))

(macroexpand-1 '(lazy-seq (iterate inc 1)))

(lazy-seq (iterate inc 1))

(type (seq (rest (iterate inc 0))))

clojure.lang.Iterate

(last (take 4 (iterate list '())))

(((())))

(last (take 10 (iterate + 1)))

1

(first (filter even? (iterate inc 1)))

2

(last (take 3 (iterate inc 4)))

6

(nth (iterate list '(1)) 10)

(((((((((((1)))))))))))

(take-while seq (iterate rest (range 3)))

((0 1 2) (1 2) (2))

((nth (iterate juxt identity) 1000) 1)

[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[...

(take-while not-empty (iterate rest (range 10)))

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

(take 10 (iterate rest (range 10)))

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

(take 5 (iterate (constantly 5) 5))

(5 5 5 5 5)

(defn lazier [s] (iterate rest s))

#'user/lazier

(last (take 2 (iterate inc 4)))

5

(pr-str (drop 20 (iterate inc 0)))

"(20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 ...)"

(nth (iterate vec (range 100)) 10000)

[0 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]

(dorun (take 4 (iterate inc 1)))

nil

(seq (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)

(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...

((nth (iterate juxt identity) 10) 1)

[[[[[[[[[[1]]]]]]]]]]

(take 10 (iterate (constantly 5) nil))

(nil 5 5 5 5 5 5 5 5 5)

(or nil 1 (iterate inc 0))

1

(first (drop 5 (iterate - 1)))

-1

(doall (take 10 (iterate inc 0)))

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

(map type [(range) (iterate inc 0)])

(clojure.lang.Iterate clojure.lang.Iterate)

(last (take 10 (iterate inc 0)))

9

(defn go-up [n] (iterate inc n))

#'user/go-up

(defn incs [i] (iterate inc i))

#'user/incs

(rest (take 11 (iterate str 3)))

("3" "3" "3" "3" "3" "3" "3" "3" "3" "3")

(defn f2 [x] (iterate inc x))

#'user/f2

(take 5 (lazy-seq (iterate inc 1)))

(1 2 3 4 5)

(shuffle (take 1000 (iterate inc 7)))

[500 810 343 308 571 123 743 996 375 953 1000 41 144 389 179 756 98 579 447 124 601 622 637 531 477 789 92 861 95 980 195 174 280 64 960 748 814 253 50 728 451 951 598 24 468 941 805 199 543 337 342 995 110 704 421 928 1004 81 787 396 387 749 989 204 367 142 103 406 312 278 695 739 57 586 114 812 713 832 395 184 365 388 977 412 699 573 537 626 595 906 830 645 439 202 173 775 926 557 547 620 346 19...