Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Guess-the-number-With-feedback/Clojure/guess-the-number-with-feedback.clj
+++ b/Task/Guess-the-number-With-feedback/Clojure/guess-the-number-with-feedback.clj
@ -0,0 +1,16 @@
+(defn guess-run []
+  (let [start 1
+	end 100
+	target (+ start (rand-int (inc (- end start))))]
+    (printf "Guess a number between %d and %d" start end)
+    (loop [i 1]
+      (printf "Your guess %d:\n" i)
+      (let [ans (read)]
+	(if (cond
+	     (not (number? ans)) (println "Invalid format")
+	     (or (< ans start) (> ans end)) (println "Out of range")
+	     (< ans target)    (println "too low")
+	     (> ans target)    (println "too high")
+	     :else             true)
+	  (println "Correct")
+	  (recur (inc i)))))))