User:Wynand.winterbach

(import '(java.lang Thread)) (import '(java.io File

                 FileReader BufferedReader
                 FileWriter BufferedWriter))

(defn open

 [fname]
 (open fname "r")
 [fname mode]
 (let [file (new File fname)]
   (cond (= mode "r") (new BufferedReader (new FileReader file))
         (= mode "w") (new BufferedWriter (new FileWriter file)))))

(def line-box (ref nil)) (def count-box (ref -1))

(defn read [file]

 (doseq line (take-while (comp not nil?) (map #(. % readLine) (repeat b)))
   (when (nil? @line-box)
     (alter line-box (fn [x] line))))
 (. file close)
 (alter line-box (partial cons 'done))
 (loop []
   (if (< @count-box 0)
     (recur)))
 (println @count-box))

(defn write [file]

 (binding [n 0]
   (loop []
     (when (not (nil? @line-box))
       (. file (write @line-box))
       (. file newLine)
       (alter line-box (fn [x] nil))
       (set! n (+ n 1)))
     (recur))
   (. file close)
   (alter count-box (fn [x] n))))

(def reader (new Thread #(read (open "input.txt")))) (def writer (new Thread #(write (open "output.txt" "w")))) (. reader start) (. writer start) (. reader join) (. writer join)