Patch 1

src/clojure_course_task02/core.clj

@@ -1,18 +1,29 @@
 (ns clojure-course-task02.core
   (:gen-class))
 
+(defn get-directories [path]
+  (filter (memfn isDirectory) (file-seq (clojure.java.io/file path))))
+
+(defn get-files [path]
+  (filter #(.isFile %) (.listFiles path))) ;; memfn
+
 
 (defn find-files [file-name path]
-  "TODO: Implement searching for a file using his name as a regexp."
-  nil)
+  (let [regex (re-pattern file-name)]
+        (->> path
+             get-directories
+             (pmap get-files)
+             flatten
+             (pmap #(.getName %)) ;; memfn
+             (filter #(not (nil? (re-find regex %)))))))  ;; comp + partial
 
 (defn usage []
   (println "Usage: $ run.sh file_name path"))
-
 (defn -main [file-name path]
   (if (or (nil? file-name)
           (nil? path))
     (usage)
     (do
       (println "Searching for " file-name " in " path "...")
-      (dorun (map println (find-files file-name path))))))
+      (dorun (map println (find-files file-name path)))
+      (shutdown-agents))))