Skip to content

Instantly share code, notes, and snippets.

@edgarmueller

edgarmueller/Problem B. Reverse Words.clj

Created April 5, 2011 16:12
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 edgarmueller/903912 to your computer and use it in GitHub Desktop.
Save edgarmueller/903912 to your computer and use it in GitHub Desktop.
Download ZIP
clojure implementation
Raw
Problem B. Reverse Words.clj
(ns reverse-words
(use [clojure.contrib.str-utils])
(:import (java.io BufferedReader FileReader)))
(defn reverse-words [file-name]
(with-open [reader (BufferedReader. (FileReader. file-name))]
(let [lines (line-seq reader)
n (Integer/parseInt (first lines))]
(doseq [[xs i] (map vector (rest lines) (range 1 (inc n)))]
(println (str "Case #" i ":")
(apply str (interpose \space (reverse (re-split #"\s+" xs)))))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment