Skip to content

Instantly share code, notes, and snippets.

@BDF

BDF/gist:559655

Created August 31, 2010 20:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save BDF/559655 to your computer and use it in GitHub Desktop.
Save BDF/559655 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(clojure.contrib.str-utils/str-join "\n" (loop [s1 '((1 2 3) (4 5 6)) result '()]
(if (empty? s1)
result
(recur (rest s1) (conj result (clojure.contrib.str-utils/str-join "\t" (first s1)))))))
@BDF
Copy link
Author

BDF commented Aug 31, 2010

chouser suggested: (join "\n" (map #(join "\t" %) '((1 2 3) (4 5 6))))
raek suggested: (->> pubRecords (map #(interpose \tab %)) (interpose \newline) flatten (apply str))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment