FoxPro/Visual FoxPro - Combinar o permutar numeros de dos en dos

   
Vista:

Combinar o permutar numeros de dos en dos

Publicado por jose alberto escalona paolucci (4 intervenciones) el 03/02/2012 12:09:21
Hola esta función combina pero no logro que me lo haga con dos dígitos o sea en ves de

" 1,8,9" me lo haga con " 10,25,99" y los muestre con su debida separación ejemplo

10- 25- 99
99 -25-10



LOCAL N
N=0
=Permutar("","1,8,9",@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