Распределить камни в две кучи так, чтобы модуль разности весов этих двух куч был минимальным

#include <iostream>
#include <set>
#include <cassert>
 
using namespace std;
 
const int INF = (int)(1e9);
 
const int N = 111;
 
int a[N];
bool used[N * int(1e4 + 1)];
 
int main()
{
    freopen("input.txt", "r", stdin);
    freopen("output.txt", "w", stdout);
 
    int n;
    cin >> n;
 
    int s = 0;
    for(int i = 0; i < n; i++)
        cin >> a[i], s += a[i];
 
    set<int> dp;
    dp.insert(0);
    used[0] = true;
 
    for(int i = 0; i < n; i++)
    {
        set<int> ndp;
 
        for(set<int>::iterator it = dp.begin(); it != dp.end(); it++)
        {
            int val = *it;
            val += a[i];
            if(!used[val])
            {
                used[val] = true;
                ndp.insert(val);
            }
        }
 
        for(set<int>::iterator it = ndp.begin(); it != ndp.end(); it++)
            dp.insert(*it);
    }
 
    int ans = INF;
    int s1 = -1, s2 = -1;
 
    for(int i = 0; i < N * (int)(1e5 + 1); i++)
    {
        if(used[i])
        {
            int dif = abs(i - (s - i));
 
            if(dif < ans)
            {
                ans = dif;
                s1 = i;
                s2 = s - i;
            }
        }
    }
 
    assert(s1 + s2 == s);
 
    cerr << s1 << ' ' << s2 << endl;
    cout << ans << endl;
 
    return 0;
}