FoxPro/Visual FoxPro - Modificar esta rutina en numerica

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder