egghelp/eggheads community

count total score of duplicate characters in nick

2019-05-06T18:12:09-04:00

excellent thanx heartbroken

Statistics: Posted by simo — Mon May 06, 2019 6:12 pm

count total score of duplicate characters in nick

2019-05-06T16:48:55-04:00

(.)\1+ will do what you want .
it matches two and more same chars in string.

Statistics: Posted by heartbroken — Mon May 06, 2019 4:48 pm

count total score of duplicate characters in nick

2019-05-06T10:38:25-04:00

for example:

gghhhhkkkkkwwwwww will have total count of 4

Statistics: Posted by simo — Mon May 06, 2019 10:38 am

count total score of duplicate characters in nick

2019-05-05T18:21:38-04:00

tnx for the clarfication

also could it be done that repeat chars more than one of a char counts as 1 so hhhhhhhhh counts as 1 and gg counts as 1 and ggg counts as 1 and so on

Statistics: Posted by simo — Sun May 05, 2019 6:21 pm

count total score of duplicate characters in nick

2019-05-05T18:00:08-04:00

(.) -> matches any char, with \1 matches 2 same characters. if you want to match 3 same chars -> (.)\1\1 …
and regexp's -all option, gives how many matches in given string. >= checking if counted matches equal or bigger than 3 … do the job...

Statistics: Posted by heartbroken — Sun May 05, 2019 6:00 pm

count total score of duplicate characters in nick

2019-05-05T17:51:27-04:00

i think i see why it counts repeated chars twice or more like gggg it counts as 2 while its repeats from 1 char and should count as 1

Statistics: Posted by simo — Sun May 05, 2019 5:51 pm

count total score of duplicate characters in nick

2019-05-05T17:44:01-04:00

thnx for the response heartbroken

i tried this:

Code:

bind join - * join:nickcheckbind nick - * nick:nickcheckproc nick:nickcheck {nick uhost hand chan newnick} {    join:nickcheck $newnick $uhost $hand $chan}proc join:nickcheck {nick uhost hand chan} {  global botnick  if {[string tolower $nick] != [string tolower $botnick]} {    if {[botisop $chan]} {    if {[set dup [regexp -all {(.)\1} $nick]] >= 3} {   putkick $chan $nick "counts $dup duplicate characters"     }   }  }}

and with a nick like hhhgggfffdddd it should detect 4 duplicate chars but instead it says it detected 5 not sure why ?

Statistics: Posted by simo — Sun May 05, 2019 5:44 pm

count total score of duplicate characters in nick

2019-05-05T17:53:42-04:00

Code:

if {[set dup [regexp -all {(.)\1} $nick]] >= 3} { putkick $chan $nick "counts $dup duplicate characters" }

Statistics: Posted by heartbroken — Sun May 05, 2019 3:46 pm

count total score of duplicate characters in nick

2019-05-05T14:45:21-04:00

could this msl code be translated into tcl

Code:

 if ($regex($nick,/(.)\1+/g) > 3) {   kick $chan  $nick counts $regex($nick,/(.)\1+/g) duplicate characters  }

it matches any duplicate char of any kind and counts as one and adds a total and if exceeded 3 matching duplicates it executes kick

Join : aabbccddeeff ~Mibbit@Amigo.Premium.net
aabbccddeeff Kicked from #tcl-test By +simo <> ( counts 6 duplicate characters )

possibly for nick change as well

Statistics: Posted by simo — Sun May 05, 2019 2:45 pm