10 lines
240 B
Text
10 lines
240 B
Text
Crv ( k, v, d ) = {
|
|
if( d == k,
|
|
print ( vecextract( v , "2..-2" ) )
|
|
,
|
|
for( i = v[ d + 1 ] + 1, #v,
|
|
v[ d + 2 ] = i;
|
|
Crv( k, v, d + 1 ) ));
|
|
}
|
|
|
|
combRV( n, k ) = Crv ( k, vector( n, X, X-1), 0 );
|