I am looking for a possible algorithm that can generate all sequences
of numbers formed by the 10 basic numeric figures: 0, 1, 2, 3, 4, 5, 6,
7, 8 and 9.

It is essential that, in all formed combinations, no digit is repeated
and that all of them are used.

Please help in any way you can.

Thank you.

Brute force function...


FUNCTION randnum
LPARAMETERS tcDigits, tnLen
IF PARAMETERS()=0
tcDigits = "0123456789"
ENDIF
IF PARAMETERS() <2
tnLen = LEN(tcdigits)
ENDIF

LOCAL lcNumber AS STRING,lnNumber AS INTEGER , x AS INTEGER, lcDigit
lcNumber = ""

FOR x = 1 TO tnLen
lcDigit = SUBSTR(tcDigits,INT(RAND()*LEN(tcDigits))+1,1)
tcDigits = STRTRAN(tcDigits,lcDigit,"")
lcNumber = lcNumber + lcDigit
ENDFOR
RETURN eval(lcNumber)
ENDFUNC


On 22 Apr 2006 06:20:14 -0700, andre_magalhaes (AT) sapo (DOT) pt wrote:


--- AntiSpam/harvest ---
Remove X's to send email to me.

Josh Assing <XjoshX (AT) jAssing (DOT) com> opined
Not sure which version of VFP you are using. In the early version I use
RAND() always starts at the same sequence, and so needs some
'randomisation seed'.

I use rand(seconds()) in place of rand() above.

Mike

--
Michael J Davis

<>{
Free advice is often worth
less than you paid for it.
<>{