Kelime Saymak, Gelişmiş Puan/İstatistik Kodu?

Enyalios · 23 Eki 2020

herhangi bir gönderide olan boşlukları sayarak, o gönderideki teknik olarak kelime sayılabilecek verileri anlam kaygısı gütmeden saptayabiliriz. aşağıdaki aliasta regex yardımıyla kelime saymaya çalışalım:--

Kod:

alias letter {
  var %let $regsubex($regsubex($1-,/[[:punct:]]|\d/g,),/\b(.)\1*(\s|$)/g,)
  if $regex(%let,/(\S+)/g) { echo -a $+($1-,:) Burada $regml(0) kelime var. }
  else { echo -a $+($1-,:) Burada tek harf/rakam(lar) var }
}

örnek kullanım:-- /letter hey hey hat--
cevap:-- hey hey hat: Burada 3 kelime var.--

örnek kullanım:-- /letter Feragat deneme upp--
cevap: --Feragat deneme upp: Burada 3 kelime var.--

örnek kullanım:-- /letter 123123--
cevap: 123123:-- Burada tek harf/rakam(lar) var--

örnek kullanım:-- /letter aaaaaaaaaaaaaaaaaa--
cevap:-- aaaaaaaaaaaaaaaaaa: Burada tek harf/rakam(lar) var--

bir tık daha ileriye götürmeye çalışarak kelimeleri sayan, satırları sayan bir puan kodu projesi haline getirmeye çalışabiliriz.--

Kod:

on *:input:#shady1:{
  if $regex($regsubex($regsubex($regsubex($1-,/[[:punct:]]|\d/g,),/(^|\s)(.)(\s|$)/g,),/(.)\1+/g,\1),/(\S+)/g) { 
    hadd -m p $+(kelime,$nick) $calc($hget(p,$+(kelime,$nick)) + $regml(0)) 
    hadd -m p $+(satır,$nick) $calc($hget(p,$+(satır,$nick)) + 1) 
    msg # 4Algılanan gönderi: $regsubex($regsubex($1-,/[[:punct:]]/g,),/\b(.)\1*(\s|$)/g,) 4Kelime toplamı: $hget(p,$+(kelime,$nick)) 4Satır toplamı: $hget(p,$+(satır,$nick)) 4Puanın: $calc($calc($hget(p,$+(kelime,$nick)) * $hget(p,$+(satır,$nick))) / 100)
  }
}

-yapılan bazı denemelerin logları:--

--

[00:10:08] «@--Xenophanes--» hebele hübele cartttttttttttt curt--
[00:10:08] <Xenophanes> Algılanan gönderi: hebele hübele cart curt Kelime toplamı: 65 Satır toplamı: 59 Puanın: 38.35--
[00:10:14] «@--Xenophanes--» denemexxxxxxxxxxxxxxxxxeeeeeeeeeeeeeeeeeddddddddd--
[00:10:14] <Xenophanes> Algılanan gönderi: denemexed Kelime toplamı: 66 Satır toplamı: 60 Puanın: 39.6--
[00:10:19] «@--Xenophanes--» hey naber nasıl gidiyor?--
[00:10:19] <Xenophanes> Algılanan gönderi: hey naber nasıl gidiyor Kelime toplamı: 70 Satır toplamı: 61 Puanın: 42.7--
[00:10:23] «@--Xenophanes--» 01293019203sahayha--
[00:10:23] <Xenophanes> Algılanan gönderi: sahayha Kelime toplamı: 71 Satır toplamı: 62 Puanın: 44.02--
[00:10:28] «@--Xenophanes--» as*apsd*pas*dpas das*d *asd--
[00:10:28] <Xenophanes> Algılanan gönderi: asapsdpasdpas dasd asd Kelime toplamı: 74 Satır toplamı: 63 Puanın: 46.62--

-devam ettirilebilecek olan bazı deneme/yanılma yöntemleriyle gerçekten etkili ve farklı bir puan/istatistik kodu haline getirilebileceğini düşünüyorum. bu aşamaları bundan 7-8 ay kadar öncesinde sürdürmüş, hatta biraz daha ileriye götürmüştüm. getirdiğim son halini ise malesef kaybettim. şans eseri Feragat ile paylaşmış olduğum bu aşamaları buldum. belki de başka insanlar daha effektif hale getirip kullanabilirler diye düşünüyorum!----

Kelime Saymak, Gelişmiş Puan/İstatistik Kodu?

Enyalios

Enyalios