Modificar esta rutina en numerica
Publicado por jose alberto (4 intervenciones) el 12/02/2012 17:16:32
Nesecito modificar esta rutina para que me tome los numeros de dos en dos ejemplo 22 33 45 y no seguido como esta ahora 123456,
algun guru ?
LOCAL N
N=0
=Permutar("","123456",@N)
PROCEDURE Permutar(pIni,pStr,pN)
LOCAL lLen,lYa,i
lLen=LEN(pStr)
IF (lLen = 1)
pN=pN+1
? pN,pIni+pStr
ELSE
FOR i = 1 TO lLen
c=SUBSTR(pStr,i,1)
lYa=LEFT(pStr,i-1)
IF NOT (c $ lYa)
=Permutar(pIni+c,lYa+RIGHT(pStr,lLen-i),@pN)
ENDIF
ENDFOR
ENDIF
ENDPROC
algun guru ?
LOCAL N
N=0
=Permutar("","123456",@N)
PROCEDURE Permutar(pIni,pStr,pN)
LOCAL lLen,lYa,i
lLen=LEN(pStr)
IF (lLen = 1)
pN=pN+1
? pN,pIni+pStr
ELSE
FOR i = 1 TO lLen
c=SUBSTR(pStr,i,1)
lYa=LEFT(pStr,i-1)
IF NOT (c $ lYa)
=Permutar(pIni+c,lYa+RIGHT(pStr,lLen-i),@pN)
ENDIF
ENDFOR
ENDIF
ENDPROC
Valora esta pregunta
0