commodore.gen.tr

int SonrakiDaireselIndex(int i, int n){
  return ((i + 1) % n));
}

int SorulanF(int n){
  // henuz silinmemisleri bir dizide tutalim
  bool* henuzSilinmedi = new bool[n];
  for(int i = 0; i < n; ++i)
    henuzSilinmedi[i] = true;

  // n-1 kere bir eleman cikaralim
  int s = 0;
  for (int i = 0; i < (n - 1); ++i){
    //su an bulundugumuz yerden itibaren ilk silinmemis ogeyi bul
    while (!henuzSilinmedi[s])
      s = SonrakiDaireselIndex(s, n);

    // bu ogeyi atliyoruz
    s = SonrakiDaireselIndex(s, n);

    //su an bulundugumuz yerden itibaren ilk silinmemis ogeyi bul
    while (!henuzSilinmedi[s])
      s = SonrakiDaireselIndex(s, n);

    // bu ogeyi siliyoruz
    henuzSilinmedi[s] = false;
  }

  // n - 1 elemani sildik kalan elemani dondur
  for (int i = 0; i < n; ++i){
    if (henuzSilinmedi[i]){
      return (i + 1);
    }
  }

  // bu noktaya vardiysak kodda bug var
  assert(false);
}

Function nightlordF(n As Integer) As Integer

    Dim i As Integer 'counter
    
    'n boyunda bir dizi tanımlayalım
    've her bir elemanın değerini "true" yapalım.
    Dim numbers() As Boolean
    ReDim numbers(n - 1)
    For i = 0 To n - 1 Step 1
        numbers(i) = True
        Next i
        
    'n-1 kere eleman çıkaralım
    Dim s As Integer 'su an bulunduğumuz yer
    s = 0
    
    For i = 1 To n - 1 Step 1
        
        'ilk silinmemiş öğeyi bul
        While numbers(s) = False
            s = sonrakiDaireselIndex(s, n)
        Wend
        
        'ilk silinmemiş öğeyi atla
        s = sonrakiDaireselIndex(s, n)
    
        'bir sonraki silinmemiş öğeyi bul
        While numbers(s) = False
            s = sonrakiDaireselIndex(s, n)
        Wend
    
        'bu öğeyi sil
        numbers(s) = False
    
    Next i
    
    'son kalan elemanı döndür
    For i = 0 To n - 1 Step 1
        If (numbers(i) = True) Then
            nightlordF = i + 1
        End If
        Next i
        
End Function

Function sonrakiDaireselIndex(s As Integer, n As Integer)
    s = s + 1
    sonrakiDaireselIndex = s Mod n
End Function