sub X{my$n=shift;my@r;while($#_+1){my$c=shift;my$a=$n-$c;if($a>0){push@r,"$c,$_"for X($a,@_)}push@r,$c if(!$a);}@r}$,="n";%x=map{((join'+',sort split/,/),1)}X(10,@A);print keys%x

@A=(1,3,4,5,3,3,7,2,7,10);           # Тестовый массив

sub X {                              # Основная функция
 my $n=shift;                        # $n=первый параметр (текущий остаток)
 my @r;                              # Объявляем массив результатов
 while($#_+1) {                      # пока есть еще параметры
  my $c=pop;                         # вытаскиваем очередной элемент массива (в $c)
  my $a=$n-$c;                       # Вычисляем текущий остаток минус данный элемент массива
  if($a>=0) {                        # Если он больше или ноль
    push @r,"$c,$_" for X($a,@_)     # Кладем в массив результатов каждый элемент массива,
                                     # который вернет функция перед которым текущий элемент с запятой
  }
  push @r,$c if(!$a);                # Если разность 0 - то кладем в результаты само число
 }
 @r                                  # возвращаем массив результатов
}
$,="n";                             # Выводить результаты разделяя переводом каретки
%x =                                 # хеш
  map {                              # ключами которого являются строки
       ((join'+',sort split/,/),1)   # разделенных знаком +, отсортированных элементов
      } X(10,@A);                    # построенных для каждого элемента возвращенного функцией
print keys%x                         # печатаем ключи хеша, т.е. уникальные ответы

public class Golf : IEqualityComparer<List<int>>
{
  //для Distinct
  public bool Equals(List<int> x, List<int> y) {return x.Except(y).Count()==0&&y.Except(x).Count()==0;}
  public int GetHashCode(List<int> obj) public int GetHashCode(List<int> obj) {return obj.Select((n,i)=>n*10^i).Sum();}

  //Основная функция
  public List<List<int>> Golf_func(List<int> list, int lim) {
    var r = new List<List<int>>();
    foreach (var n in list) {
      if (n>lim) continue;
      else if (n==lim) r.Add(new List<int>() {n});
      else r.AddRange(Golf_func(list.Except(new List<int>() {n}).ToList(), lim-n).Select(a=>{a.Add(n); return a.OrderBy(b=>b).ToList();}));
    }
    return r.Distinct(this).ToList();
  }
}