朝飯前の自習

Mathematicaで重複組み合わせを列挙する関数を作成せよ。

初心者の試作品
repeatedCombination[list_,n_] := list[[# - Range[0,n-1]]]& /@ Subsets[Range[Length@list + n-1],{n}]

熟練者の評価を希望します。