gistfile1.txt

(defn change 
  ([n] (change n [:baz 21 :qix 11 :bar 7 :foo 1]))
  ([n us]
    (if-let [[nu vu & us] (seq us)]
      (concat (for [mu (range vu (inc n) vu)
                    m (change (- n mu) us)]
                (assoc m nu (/ mu vu)))
              (change n us))
      (when (zero? n) [{}]))))

Bravo ! ☺

Tu peux virer le concat et faire démarrer l range à zéro, non?

Ah c'est pour ne pas inscrire des :xxx 0 ok

On pourrait comme dans ma version améliorer le bottom case en le considérant lorsqu'il n'y à plus qu'un type de pièce possible: et c'est alors uniquement si le reminder est à zéro qu'on retourne le quotient entier, sinon liste vide ?