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/Bitmap-Midpoint-circle-algorithm/Clojure/bitmap-midpoint-circle-algorithm-2.clj
+++ b/Task/Bitmap-Midpoint-circle-algorithm/Clojure/bitmap-midpoint-circle-algorithm-2.clj
@ -0,0 +1,10 @@
+(let [circle-points (atom [])]
+    (letfn [(draw-fn [x y]
+              (swap! circle-points #(conj % [x y])))]
+      (draw-circle draw-fn 10 10 7))
+    (let [empty-grid (vec (repeat 20 (vec (repeat 20 " "))))
+          grid       (reduce (fn [grid xy] (assoc-in grid xy "x"))
+                             empty-grid
+                             @circle-points)]
+      (doseq [line grid]
+        (println (clojure.string/join line)))))