fillrow = function(N,k,pos,array)
{
if (pos == k)
{
array[pos] <- N
print(array)
}
else
{
for (i in 0:N)
{
array[pos] <- i
fillrow(N-i,k,pos+1, array)
}
}
}
array <- array(10001:10004) # some indentifiable incorrect initial values
fillrow(2,4,1, array)
ZmlsbHJvdyA9IGZ1bmN0aW9uKE4sayxwb3MsYXJyYXkpCnsKICBpZiAocG9zID09IGspCiAgewogICAgYXJyYXlbcG9zXSA8LSBOCiAgICBwcmludChhcnJheSkKICB9CiAgZWxzZQogIHsKICAgIGZvciAoaSBpbiAwOk4pCiAgICB7CiAgICAgIGFycmF5W3Bvc10gPC0gaQogICAgICBmaWxscm93KE4taSxrLHBvcysxLCBhcnJheSkKICAgIH0KICB9Cn0KCgphcnJheSA8LSBhcnJheSgxMDAwMToxMDAwNCkgIyBzb21lIGluZGVudGlmaWFibGUgaW5jb3JyZWN0IGluaXRpYWwgdmFsdWVzCmZpbGxyb3coMiw0LDEsIGFycmF5KQoK