* Получить все сочетания (с возвращением) по 3 буквы из N букв. * Автор: Raynald Levesque, 02.06.2002. SET MXLOOPS=40. SET MPRINT=yes. DATA LIST FREE /nbers. BEGIN DATA 1 END DATA. LIST. * Этот макрос находит все сочетания (с возвращением) по 3 буквы из n (где n > 3). *////////////////////////////////. DEFINE !doit (!POS=!CMDEND) !LET !x=!NULL STRING answer1 TO answer3 answer (A8). !DO !var !IN (!1) !LET !x=!CONCAT(!x,!BLANKS(1)) STRING !CONCAT('V',!LENGTH(!x)) (A8). COMPUTE !CONCAT('V',!LENGTH(!x))=!QUOTE(!var). !DOEND VECTOR vec=v1 TO !CONCAT('V',!LENGTH(!x)). LOOP #cnt1=1 TO !LENGTH(!x). COMPUTE answer1=vec(#cnt1). LOOP #cnt2=#cnt1 TO !LENGTH(!x). COMPUTE answer2=vec(#cnt2). LOOP #cnt3=#cnt2 TO !LENGTH(!x). COMPUTE answer3=vec(#cnt3). COMPUTE answer=CONCAT(RTRIM(answer1),RTRIM(answer2),RTRIM(answer3)). XSAVE OUTFILE='c:\\temp\\temp.sav' /KEEP=answer transn. END LOOP. END LOOP. END LOOP. EXECUTE. GET FILE='c:\\temp\\temp.sav'. !ENDDEFINE. *////////////////////////////////. !doit A B C G K L P S T V X Y.