random and unique in range 1

[nabana2]

Hi

I am trying to create a random 2 digit number for each input record. The same number must also NOT be generated for at least 10 input records. This is what i have tried. I think I am close but I am not sure how to react to duplicates within the 10 record boundry. Probably also a more clever way to do this.

awk 'BEGIN{srand();x=1}

function chkdig(){
   str = 10 + int(rand() * 90)
		
   for(i=1;i<=10;i++){
   ##problem area##	
      if(arr[i]==str){
         do{
	 str = 10 + int(rand() * 90)
	 }while (arr[i]==str)
      }
   ##this won't check previous records in the array for the new str
   ################
   }
   arr[x] = str
	
   x++
   if(x==11){
   x=1}

   return str
}
{
   print $1, chkdig()
}' inputfile

thanks

 

[feherke]

Hi

My approach :

function chkdig()
{
  do {
    str = 10 + int(rand() * 90)
    ok = 1
    for (i=1;i<=10;i++) if (arr[i]==str) ok = 0
  } while (!ok)

  arr[x=x%10+1] = str

  return str
}

Feherke.

http://rootshell.be/~feherke/

 

[nabana2]

thanks feherke!
works well.