| Mylife | 16 Mart 2025 10:35 |
Kanalda En Çok Hangi Kelime Yazılmış Öğrenme
Kod:
alias kelime_frekanslari {
if (!$hget(kelime_frekanslari)) {
hmake kelime_frekanslari 100
}
}
on *:text:*:#: {
if $regex($1,/[\.!]rapor/Si) {
if ($2 isnum) {
var %sayi = $2
var %kelimeler
var %sayilar
var %i = 1
while ($hget(kelime_frekanslari, %i).data != $null) {
var %kelime = $hget(kelime_frekanslari, %i).item
var %kelime_sayi = $hget(kelime_frekanslari, %i).data
%kelimeler = %kelimeler $+ %kelime $+ |
%sayilar = %sayilar $+ %kelime_sayi $+ |
inc %i
}
var %j = 1
while (%j <= %sayi) {
var %en_cok = 0
var %kelime = $null
var %k = 1
while ($gettok(%sayilar, %k, 124) != $null) {
var %gecerli_sayi = $gettok(%sayilar, %k, 124)
if (%gecerli_sayi > %en_cok) {
%en_cok = %gecerli_sayi
%kelime = $gettok(%kelimeler, %k, 124)
}
inc %k
}
if (%kelime && %en_cok) {
msg # %kelime : %en_cok
%kelimeler = $remtok(%kelimeler, %kelime, 1, 124)
%sayilar = $remtok(%sayilar, %en_cok, 1, 124)
}
inc %j
}
}
else {
msg # Lütfen raporlamak istediğiniz kelime sayısını belirtin. Örnek: !rapor 10
}
}
else {
var %mesaj = $strip($1-)
var %i = 1
while ($gettok(%mesaj, %i, 32) != $null) {
var %kelime = $gettok(%mesaj, %i, 32)
hadd -mu100 kelime_frekanslari %kelime $calc($hget(kelime_frekanslari, %kelime) + 1)
inc %i
}
}
}
Kodun amacı;
Kanalda en çok hangi kelime yazıldığını öğrenmenizi sağlar. Kullanım;
.rapor 10 | 