Steven! Ragnarök avatar Steven! Ragnarök committed 1b17066

Clojure doesn't actually want dashes in filenames.

Comments (0)

Files changed (3)

beers_i_owe_steve.clj

+(ns beers-i-owe-steve)
+(def beers-i-owe-steve (agent 0))
+
+(defn add-another
+  "Add another beer to the case I owe Steve Losh for his awesome Vim plugins
+  and articles, print a reason for each one.."
+  [reason]
+  (send-off beers-i-owe-steve inc)
+  (println reason)
+  reason)

my-flatten.clj

-(defn my-flatten [s]
-  (let [flatten-one-layer
-        (fn [flat unk]
-          (cond
-            (empty? unk) (seq flat)
-            (seq? (first unk)) (recur (into flat (first unk)) (rest unk))
-            :else (recur (conj flat (first unk)) (rest unk))))
-        sq (map #(if (vector? %) (seq %) %) s)]
-        (if (not (apply = (conj (map seq? sq) false)))
-          (recur (flatten-one-layer [] sq))
-          sq)))
-
-(println (my-flatten '(1 2 3 4 (\a \b \c (\x \y \z)))))
-
-(println (my-flatten '((1 2) 3 [4 [5 6]])) '(1 2 3 4 5 6))
+(defn my-flatten [s]
+  (let [flatten-one-layer
+        (fn [flat unk]
+          (cond
+            (empty? unk) (seq flat)
+            (seq? (first unk)) (recur (into flat (first unk)) (rest unk))
+            :else (recur (conj flat (first unk)) (rest unk))))
+        sq (map #(if (vector? %) (seq %) %) s)]
+        (if (not (apply = (conj (map seq? sq) false)))
+          (recur (flatten-one-layer [] sq))
+          sq)))
+
+(println (my-flatten '(1 2 3 4 (\a \b \c (\x \y \z)))))
+
+(println (my-flatten '((1 2) 3 [4 [5 6]])) '(1 2 3 4 5 6))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.