$ardisik_mi ardisik sayi mi degil mi - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

manikdepresif · 28 Kasım 2023, 04:38

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
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
GAZETEMIZ 2.SAYI	gulbeseker	Sunuculardan Son Haberler	1	23 Kasım 2022 10:49

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.