Ta sẽ lưu nghiệm trong mảng x, ngoài ra còn có một mảng t. Mảng t xây dựng như sau:  t[i] sẽ là tổng các phần tử trong mảng x từ x[1] đến x[i].
t[i] := x[1] + x[2] + .... + x[3];
Khi liệt kê các dãy có tổng đúng bằng n, để tránh sự trùng lặp, ta đưa thêm điều kiện x[i -1]<=x[i];
Vì số phần tử của mảng x là không cố định nên thủ tục printResult phải có thêm tham số cho biết phải in ra bao nhiêu phần tử.
Thủ tục đệ quy sẽ thử các giá trị có thể nhận Attempt( i) của x[i] thỏa mãn x[i] >= x[i-1];
Khi nào thì in kết quả và khi nào gọi đệ quy tiếp? t[i -1] là tổng tất cả các phần tử từ x[1] đến x[i-1].
*  Khi t[i] = n ( tức là x[i] = n- t[i-1] thì in ra kết quả)
* Khi tìm tiếp x[i+1] không được nhỏ hơn x[i] và t[i+1] là tổng tất cả các phần tử từ  x[1] đến x[i+1] không được vượt quá n.
  Ta có:
t[i+1] <= n
<=> t[i-1] + x[i] + x[i+1] <=n
<=> x[ i +1] + x[i] <= n - t[i-1]
<=> x[i] <= ( n - t[i-1])/2