Clojure Dojo - http://codekata.pragprog.com/2007/01/kata_thirteen_c.html

clojureDojo18Dec2013

(use 'clojure.string)
(defn first-parts-are? [s test-string] 
  (let [cleaned-string (subs s 0 (min 
                                  (count test-string) 
                                  (count s)))]
    (= test-string cleaned-string)))
 
(defn is-a-comment [line]
  (some true? (map 
               (partial first-parts-are? line) 
               ["*" "/**" "//"])))
 
(defn count-code-lines [s]
  (let [ready-lines (map trim (split-lines our-string))
        total (count splitted)
        commented-lines (count
                         (filter is-a-comment splitted))]
    (- total commented-lines)))
 
 
(def our-string " // This file contains 3 lines of code
  public interface Dave {
                         /**
                         * count the number of lines in a file
                         */
                         int countLines(File inFile); // not the real signature!
                         }" )

Working w/ two other people at the dojo