Clojure, install and investigation

01.lisp

(defn random-letters  [limit iteration]
  (println (format "iteration: %s" iteration))
  (println (format "limit: %s" limit))
 )
(random-letters 25 5)  

02.lisp

(defn random-letters  [limit iteration]
	(println (format "iteration: %s" iteration))
	(println (format "limit: %s" limit)) 
	(doseq [i (range limit)]
		(println i))
 )
(random-letters 25 5)

03.lisp

(defn random-letters  [limit iteration]
	(println (format "iteration: %s" iteration))
	(println (format "limit: %s" limit)) 
	(doseq [i (range limit)]
		(def m (mod i iteration))
		(println (format "m: %s" m))
		)
 )
(random-letters 25 5)

04.lisp

(defn random-letters  [limit iteration]
	(println (format "iteration: %s" iteration))
	(println (format "limit: %s" limit)) 
	(doseq [i (range limit)]
		(def m (mod i iteration))
		(if (= 0 m)
			(println (format "i: %s" i))))
 )
(random-letters 25 5)

05.lisp

(defn random-letters  [limit iteration]
	(println (format "iteration: %s" iteration))
	(println (format "limit: %s" limit)) 
	(def alphabet "abcdefghijklmnopqrstuvwxyz")
	(doseq [i (range limit)]
		(def m (mod i iteration))
		(if (= 0 m)
			(println (format "i: %s" alphabet))))
 )
(random-letters 25 5)

06.lisp

(defn random-letters  [limit iteration]
	(println (format "iteration: %s" iteration))
	(println (format "limit: %s" limit)) 
	(def alphabet "abcdefghijklmnopqrstuvwxyz")
	(doseq [i (range limit)]
		(def m (mod i iteration))
		(if (= 0 m)
			(println (format "i: %s" (rand-int 26) ))
			(println (format "i: %s" alphabet ))
			))
 )
(random-letters 25 5)

07.lisp

(defn random-letters  [limit iteration]
	(println (format "iteration: %s" iteration))
	(println (format "limit: %s" limit)) 
	(def alphabet "abcdefghijklmnopqrstuvwxyz")
	(doseq [i (range limit)]
		(def m (mod i iteration))
		(if (= 0 m)
			(println (format "i: %s" (get alphabet (rand-int 26)) ))
			))
 )
(random-letters 25 5)

update_1.clj

(def alphabet "abcdefghijklmnopqrstuvwxyz")
(defn random-letters  [limit iteration]
    (repeatedly 
      (/ limit iteration) 
      #(str (get alphabet (rand-int 26)) )))