use with-open for server-socket

Author: SughiY

compiled_starters/clojure/src/main.clj

@@ -5,12 +5,12 @@
 ;;   You can use print statements as follows for debugging, they'll be visible when running tests.
   (println "Logs from your program will appear here!")
 ;;   Uncomment this block to pass the first stage
-;;   (try
-;;     (let [server-socket (java.net.ServerSocket. 4221)]
-;;       (doto server-socket
-;;         (.setReuseAddress true)
-;;         (.accept))
-;;       (println "accepted new connection"))
-;;     (catch java.io.IOException e
-;;       (println (str "IOException: " (.getMessage e)))))
-  )
+;; (try
+;;   (with-open [server-socket (java.net.ServerSocket. 4221)]
+;;     (doto server-socket
+;;       (.setReuseAddress true)
+;;       (.accept))
+;;     (println "accepted new connection"))
+;;   (catch java.io.IOException e
+;;     (println (str "IOException: " (.getMessage e)))))
+)

solutions/clojure/01-at4/code/src/main.clj

@@ -2,12 +2,12 @@
   (:gen-class))
 
 (defn -main [& args]
-  (try
-    (let [server-socket (java.net.ServerSocket. 4221)]
-      (doto server-socket
-        (.setReuseAddress true)
-        (.accept))
-      (println "accepted new connection"))
-    (catch java.io.IOException e
-      (println (str "IOException: " (.getMessage e)))))
-  )
+(try
+  (with-open [server-socket (java.net.ServerSocket. 4221)]
+    (doto server-socket
+      (.setReuseAddress true)
+      (.accept))
+    (println "accepted new connection"))
+  (catch java.io.IOException e
+    (println (str "IOException: " (.getMessage e)))))
+)

solutions/clojure/01-at4/diff/src/main.clj.diff

@@ -6,21 +6,21 @@
 -;;   You can use print statements as follows for debugging, they'll be visible when running tests.
 -  (println "Logs from your program will appear here!")
 -;;   Uncomment this block to pass the first stage
--;;   (try
--;;     (let [server-socket (java.net.ServerSocket. 4221)]
--;;       (doto server-socket
--;;         (.setReuseAddress true)
--;;         (.accept))
--;;       (println "accepted new connection"))
--;;     (catch java.io.IOException e
--;;       (println (str "IOException: " (.getMessage e)))))
-+  (try
-+    (let [server-socket (java.net.ServerSocket. 4221)]
-+      (doto server-socket
-+        (.setReuseAddress true)
-+        (.accept))
-+      (println "accepted new connection"))
-+    (catch java.io.IOException e
-+      (println (str "IOException: " (.getMessage e)))))
-   )
+-;; (try
+-;;   (with-open [server-socket (java.net.ServerSocket. 4221)]
+-;;     (doto server-socket
+-;;       (.setReuseAddress true)
+-;;       (.accept))
+-;;     (println "accepted new connection"))
+-;;   (catch java.io.IOException e
+-;;     (println (str "IOException: " (.getMessage e)))))
++(try
++  (with-open [server-socket (java.net.ServerSocket. 4221)]
++    (doto server-socket
++      (.setReuseAddress true)
++      (.accept))
++    (println "accepted new connection"))
++  (catch java.io.IOException e
++    (println (str "IOException: " (.getMessage e)))))
+ )
 \ No newline at end of file

solutions/clojure/01-at4/explanation.md

@@ -4,14 +4,14 @@ Study and uncomment the relevant code:
 
 ```clojure
 ;;   Uncomment this block to pass the first stage
-  (try
-    (let [server-socket (java.net.ServerSocket. 4221)]
-      (doto server-socket
-        (.setReuseAddress true)
-        (.accept))
-      (println "accepted new connection"))
-    (catch java.io.IOException e
-      (println (str "IOException: " (.getMessage e)))))
+(try
+  (with-open [server-socket (java.net.ServerSocket. 4221)]
+    (doto server-socket
+      (.setReuseAddress true)
+      (.accept))
+    (println "accepted new connection"))
+  (catch java.io.IOException e
+    (println (str "IOException: " (.getMessage e)))))
 ```
 
 Push your changes to pass the first stage:

starter_templates/clojure/code/src/main.clj

@@ -5,12 +5,12 @@
 ;;   You can use print statements as follows for debugging, they'll be visible when running tests.
   (println "Logs from your program will appear here!")
 ;;   Uncomment this block to pass the first stage
-;;   (try
-;;     (let [server-socket (java.net.ServerSocket. 4221)]
-;;       (doto server-socket
-;;         (.setReuseAddress true)
-;;         (.accept))
-;;       (println "accepted new connection"))
-;;     (catch java.io.IOException e
-;;       (println (str "IOException: " (.getMessage e)))))
-  )
+;; (try
+;;   (with-open [server-socket (java.net.ServerSocket. 4221)]
+;;     (doto server-socket
+;;       (.setReuseAddress true)
+;;       (.accept))
+;;     (println "accepted new connection"))
+;;   (catch java.io.IOException e
+;;     (println (str "IOException: " (.getMessage e)))))
+)