Выбоpки

From

Vladimir Vassilevsky (2:5020/175.2)

To

Denis Novokshonov

Date

2002-11-29T17:41:47Z

Area

RU.ALGORITHMS

From: "Vladimir Vassilevsky" <vlv@fullnet.net>

Hi Denis,

Thu Nov 28 2002 22:12, Denis Novokshonov wrote to All:

 DN> Hello, All!

 DN> Спасибо всем ответившим,
 DN> pассматpиваю пpедложенные ваpианты pешений,
 DN> если есть еще идеи пишите.

(c) Vladimir L. Vassilevsky

#include <stdio.h>

unsigned int Factorial(unsigned int n)
{
unsigned int i,f = 1;

for(i = 2; i <= n; i++) f *= i;
return f;
}

//-----------------------------------------------
// Generate combination i from n! combinations
// 
//
void GetCombination(unsigned int *c, unsigned int n, unsigned int i)
{
unsigned int j,k,l,m;

for(k = 0; k < n; k++) c[k] = n;

m = 0;
j = Factorial(n);

for(k = n; k >= 1; k--)
 {
 j /= k;
 l = i/j;
 i -= l*j;
 l++;
 do {
    do { 
       if(++m == n) m = 0; 
       } while(c[m] != n);    
    } while(--l);
 c[m] = k-1; 
 }
}

//--------------------------------------------
// 
#define N 5

void main(void)
{
unsigned int i,j,Nfact;
unsigned int c[N];

Nfact = Factorial(N);

for(i=0;i<Nfact;i++)
 {
 GetCombination(c, N, i);
 printf("\n");
 for(j=0;j<N;j++) printf(" %u",c[j]); 
 }
printf("\n");
}

"Хотели как лучше - получилось как всегда" (В.C. Черномырдин)

--- ifmail v.2.15dev5
 * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)