fc28cd9

src/org/pinchord/generate.clj modified (view file)

@@ -26,7 +26,10 @@         new-s))     s)) -(defn all-chords [s]+(defn all-chords+  "Returns a set of all chord combinations of a given string of keys.+   E.g. (all-chords \"AO\") -> #{\"\" \"O\" \"AO\" \"A\"}"+  [s]   (if (empty? s)     #{""}     (let [rest-combos (all-chords (rest s))]