100 조합 함수 또는 알고리즘을 찾습니다. JS 가 가장 좋습니다. 델파이 또는 다른 언어.

함수 조합 (소스: 문자열; Len: integer): string;

변수를 정의합니다

Rsl, sl, tsl:TStringList；;

I: 정수

S, t: 문자열

시작

Sl := TStringList 입니다. 만들기;

Rsl := TStringList 입니다. 만들기;

시도하다

While source[ 1] =',' do

Source := Copy(source, 2, length (source)-1);

While source[Length(source)] =',' do

Source := Copy(source, 1, length (source)-1);

Sl. 구분 기호: =',';

Sl. Delimited text:= source；;

Sl 인 경우. 계산< 그럼 len

시작

결과: =' 원시 데이터 길이가 조합 수보다 작음' +# 13+' 원시 데이터의 구분 기호는 영어 입력기 쉼표',' 만 될 수 있습니다.

종료;

끝;

Len = 1 이면

시작

I := 0 ~ sl 의 경우. Count-1 do

결과: = 결과+sl. Strings [I]+'|';

끝

기타

시작

그리고 sl 입니다. Count & gt= len do

시작

Tsl := TStringList 입니다. 만들기;

시도하다

Tsl. 할당 (sl);

그리고 tsl 입니다. Count & gt= len do

시작

T: = \ "\";

S: = \ "\";

I := 0 ~ len-2 do 의 경우

T := t+tsl 입니다. Strings[i]+',';

I := len-1 tsl 까지. Count-1 do

S := s+t+tsl 입니다. Strings [I]+'|';

Rsl. 추가;

만약 len>2 가

Tsl. 삭제 (1)

기타

Tsl. 명료하다

끝;

마지막으로

Freeandnil (tsl);

끝;

Sl. 삭제 (0);

끝;

결과: = RSL. 텍스트;

끝;

마지막으로

Freeandnil (RSL);

Freeandnil (sl);

끝;

끝;

//호출

쇼 메시지 (조합 ('1, 2, 3, 4, 5, 6, 7', 2);

쇼 메시지 (조합 ('1, 2, 3, 4, 5', 3);

쇼 메시지 (조합 ('1, 2, 3, 4, 5', 4);