ASP에서 난수 발생( 로또 )

개발/ASP 2017. 7. 20. 10:25

jsp 에서 코딩하는거랑 좀 다르다... 좀더 어렵다고 할까나..

 

asp에서는

   '난수 발생 START  
   Dim lotto(10) '10개 배열 생성
   randomize
   For i =1 To 9 Step 1
     A = int(rnd()*9) + 1 ' 난수 할당
     For y=1 To i Step 1
      If lotto(y) = A  Then
       A = 0
       y = i+1 '중복 번호가 나오면 i 보다 크게 해서 for 빠져나온다
       i = i-1 '카운트가 증가 됐던것을 다시 감소
      End If
     Next
     If A <> 0 then
      lotto(i) = A
     End if
   Next
   '난수 발생 END'

 

 

jsp에서는

 

   Random rand = new Random(); // 랜덤 함수
   int[] Lotto = new int[10]; // 배열 선언, 초기화
   for(int k =1; k<=9;k++)
   {
    
     A=rand.nextInt(9) + 1; //  0부터 시작하므로 +1
     for(y=0;y<=k;y++)
     {
      if(A==Lotto[y])
      {
       A=rand.nextInt(9) + 1; // 0부터 시작하므로 +1. 중복값이므로 다시 난수를 부여
       y = -1;          //j++ 값을 상쇄시켜주기 위해(증감을 막음. 비교하기 위해서)
      }
     }
     Lotto[k]=A;

    }

 

이런식으로 했었는데