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: Kodu kopyalamak için üzerine çift tıklayın!
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
}