#/*********************************************************** # factrep.rb -- ³¬ΎθΏΚΛ‘ #***********************************************************/ N = 4 c = [] for k in 1..N+1; c[k] = 0; end i = 0 begin printf("%3d:", i); i += 1 N.downto(1) {|k| printf(" %d", c[k]) } printf("\n") k = 1 while (c[k] == k); c[k] = 0; k += 1; end c[k] += 1 end while (k <= N) exit 0