echo-server.clj

echo-server.clj

(ns w.clj
  (:require [clojure.java.io :as io])
  (:import [java.net ServerSocket]
           [java.lang Integer])
  (:gen-class))

(defn -main
  "echo server"
  [port & args]
  (let [ss (new ServerSocket (Integer/parseInt port))]
    (loop []
      (with-open [sock (.accept ss)
                  rdr (io/reader sock)]
        (loop [line (.readLine rdr)]
            (if line
              (do (println line)
                  (recur (.readLine rdr))))))
      (recur))))