fmnoise · January 26, 2019 16:13 · Jan 8, 2019 · Jan 7, 2019 · Jan 7, 2019
diff --git a/heredoc.clj b/heredoc.clj
@@ -5,7 +5,7 @@
          (interpose \newline)
          (apply str))))
 
-; The following lines evaluate to:
+; The following lines are read (by the reader) as:
 ; "Look )(\"\\T\na here doc!\n"
 #=(heredoc)"""
 Look )("\T

diff --git a/heredoc.clj b/heredoc.clj
@@ -5,7 +5,7 @@
          (interpose \newline)
          (apply str))))
 
-; The following linkes evaluates to:
+; The following lines evaluate to:
 ; "Look )(\"\\T\na here doc!\n"
 #=(heredoc)"""
 Look )("\T

diff --git a/heredoc.clj b/heredoc.clj
@@ -0,0 +1,13 @@
+(defn heredoc []
+  (let [delim (.readLine *in*)]
+    (->> (repeatedly #(.readLine *in*))
+         (take-while #(not= delim %))
+         (interpose \newline)
+         (apply str))))
+
+; The following linkes evaluates to:
+; "Look )(\"\\T\na here doc!\n"
+#=(heredoc)"""
+Look )("\T
+a here doc!
+"""