gistfile1.clj

(defn selections [choices]
  (if (empty? choices)
    '(())
    (let [more (selections (rest choices))]
      (for [choice (first choices)
            answer more]
        (cons choice answer)))))

(defn score-card [[rank suit]]
  (cond (number? rank) [rank]
        (= :ace rank) [1 11]
        :else [10]))

(defn score-hand [cards]
  (map (partial apply +)
       (selections (map score-card cards))))