if !file('test.dbf')
	create Table (lcFile) free (nId i autoinc, nNom i, cText c( 10 ))
	for i =  1  to  10000000 
		insert into test (nNom, cText) values (rand() *  9999  +  1 , sys( 2015 ))
	endfor
	index on nId tag nId
	index on nNom tag nNom
	index on bintoc(nNom) + bintoc(nId) tag NomId collate "machine"
	use in test
else
	if used('test')
		use in test
	endif
endif

sele  0 
use test shared
Test1()
Test1()
Test1()
Test2()
Test2()
Test2()
*!*	Test3()
*!*	Test3()
*!*	Test3()
Test4()
Test4()
Test4()

return

func Test1
if used('Res1')
	use in Res1
endif
lnSec = Seconds()
select * ;
from Test ;
where not exists(select  1  from Test tab2 ;
                       where tab2.nNom = Test.nNom;
                          and tab2.nId < Test.nId);
	into cursor Res1
? 'Test1', Seconds() - lnSec
return                      

func Test2
if used('Res2')
	use in Res2
endif
lnSec = Seconds()
create cursor res2 (nId i, nNom i, cText c( 10 ))
index on nNom tag nNom
set order to
sele Test
scan
    if !IndexSeek(Test.nNom, .T., 'res2', 'nNom')
      insert into res2 (nId, nNom, cText) values (Test.nId, Test.nNom, test.cText)
   endif
endscan
? 'Test2', Seconds() - lnSec
return                      

func Test3
if used('Res3')
	use in Res3
endif
lnSec = Seconds()
create cursor res3 (nId i, nNom i, cText c( 10 ))
sele Test
set Order To NOMID   && BINTOC(NNOM)+BINTOC(NID) 
scan
    if Test.nNom != res3.nNom
      insert into res3 (nId, nNom, cText) values (Test.nId, Test.nNom, test.cText)
   endif
endscan
? 'Test3', Seconds() - lnSec
return                      

func Test4
if used('Res4')
	use in Res4
endif
lnSec = Seconds()
*select *,recno() as nn from test into cursor c1 nofilter
select nNom, min(nId) as nn from Test into cursor curGroup group by nNom
select * from c1  where nn in (Select nn from curGroup) into cursor res4
? 'Test4', Seconds() - lnSec
return