25 lines
582 B
Plaintext
25 lines
582 B
Plaintext
LOCAL i As Integer, n As Integer, lcOut As String
|
|
CLOSE DATABASES ALL
|
|
CLEAR
|
|
CREATE CURSOR nums (num I)
|
|
INDEX ON num TAG num COLLATE "Machine"
|
|
SET ORDER TO 0
|
|
n = 50
|
|
RAND(-1)
|
|
FOR i = 1 TO n
|
|
INSERT INTO nums VALUES (RanInt(1, 10))
|
|
ENDFOR
|
|
SELECT num, COUNT(num) As cnt FROM nums ;
|
|
GROUP BY num INTO CURSOR grouped
|
|
LIST OFF TO FILE grouped.txt NOCONSOLE
|
|
lcOut = ""
|
|
SCAN
|
|
lcOut = lcOut + TRANSFORM(num) + ","
|
|
ENDSCAN
|
|
lcOut = LEFT(lcOut, LEN(lcOut)-1)
|
|
? lcOut
|
|
|
|
FUNCTION RanInt(tnLow As Integer, tnHigh As Integer) As Integer
|
|
RETURN INT((tnHigh - tnLow + 1)*RAND() + tnLow)
|
|
ENDFUNC
|