fork download
copy 
  1. fillrow = function(N,k,pos,array)
  2. {
  3.   if (pos == k)
  4.   {
  5.     array[pos] <- N
  6.     print(array)
  7.   }
  8.   else
  9.   {
  10.     for (i in 0:N)
  11.     {
  12.       array[pos] <- i
  13.       fillrow(N-i,k,pos+1, array)
  14.     }
  15.   }
  16. }
  17.  
  18.  
  19. array <- array(10001:10004) # some indentifiable incorrect initial values
  20. fillrow(2,4,1, array)
  21.  
  22.  
Success #stdin #stdout 0.44s 22824KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] 0 0 0 2
[1] 0 0 1 1
[1] 0 0 2 0
[1] 0 1 0 1
[1] 0 1 1 0
[1] 0 2 0 0
[1] 1 0 0 1
[1] 1 0 1 0
[1] 1 1 0 0
[1] 2 0 0 0
https://ideone.com/iOK9nx
language:
R (R 3.5.2)
created:
12 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!