IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Ardisik_Sayimi_Degil_mi
/*
Sayilarin ardisik mi veya degilmi oldugunu kontrol eder eger dogruysa $true degerini,
yanlissa $false degerini döndürür.
Kullanim: $ardisik_mi(sayi kumesi,sayiaraligi).duz veya .ters
Kullanim Ornekleri:
1- $ardisik_mi(1 2 3 4 5 6,1).duz -> $true
2- $ardisik_mi(0 2 4 6 8,2).duz -> $true
3- $ardisik_mi(44 50 56 62 68 74,6).duz -> $true
4- $ardisik_mi(6 5 4 3 2 1,1).ters -> $true
5- $ardisik_mi(10 8 6 4 2,2).ters -> $true
6- $ardisik_mi(1400 1300 1200 1100,100).ters -> $true
*/

Kod:

alias ardisik_mi {

  if (!$2) return $false

  var %m = $remove($1,$chr(32))

  if (%m !isnum) return $false

  if (!$count($1,$chr(32))) return $false

  if ($prop == $null) return $false 

  var %c = 1

  while %c <= $numtok($1,32) { 

    var %ilk = $gettok($1,%c,32)

    if ($prop == duz) { inc %ilk $2 }

    if ($prop == ters) { dec %ilk $2 }

    if ($gettok($1,$calc(%c + 1),32)) {

      if %ilk != $gettok($1,$calc(%c + 1),32) { return $false }  

    }

    inc %c

  }

  return $true

}