Statistics: Posted by sdays — Fri Feb 16, 2007 11:29 am
Statistics: Posted by edu — Fri Feb 16, 2007 2:20 am
Statistics: Posted by metroid — Fri Jun 30, 2006 8:41 am
Statistics: Posted by demond — Thu Jun 29, 2006 10:55 pm
Statistics: Posted by ayie — Thu Jun 29, 2006 12:32 am
Statistics: Posted by demond — Sun Feb 12, 2006 2:44 am
Statistics: Posted by silverboy — Sun Feb 12, 2006 1:35 am
Code:
proc sb:score {str} { set score 0 set vowel "aeiouy" set cnant "bcdfghjklmnpqrstvwxz" set digit "0123456789" set str [string tolower $str] incr score [regexp -all \[$vowel\]{3,} $str] ;# 3 and more adjacent vowels incr score [regexp -all \[$cnant\]{3,} $str] ;# 3 and more adjacent consonants incr score [regexp -all \[$digit\]{2,} $str] ;# 2 and more adjacent digits incr score [regexp -all \[$vowel$digit\]{4,} $str] ;# 4 or more adjacent vowel/digits incr score [regexp -all \[$cnant$digit\]{4,} $str] ;# 4 or more adjacent consonant/digits incr score $score ;# double the score} Statistics: Posted by demond — Tue Jun 14, 2005 10:00 pm
Code:
proc sb:score {str} { set score 0 set vowel "aeiouy" set cnant "bcdfghjklmnpqrstvwxz" set other "{}\\\[\\\]-_^`|\\\\" set digit "0123456789" set str [string tolower $str] incr score [regexp -all \[$vowel\]{3,} $str] ;# 3 and more adjacent vowels incr score [regexp -all \[$cnant\]{3,} $str] ;# 3 and more adjacent consonants incr score [regexp -all \[$other\]{3,} $str] ;# 3 and more adjacent punctuation chars incr score [regexp -all \[$digit\]{2,} $str] ;# 2 and more adjacent digits incr score [regexp -all \[$vowel$other\]{4,} $str] ;# 4 or more adjacent vowel/punctuation chars incr score [regexp -all \[$cnant$other\]{4,} $str] ;# 4 or more adjacent consonant/punctuation chars incr score [regexp -all \[$vowel$digit\]{4,} $str] ;# 4 or more adjacent vowel/digits incr score [regexp -all \[$cnant$digit\]{4,} $str] ;# 4 or more adjacent consonant/digits incr score [regexp -all \[$other$digit\]{3,} $str] ;# 3 or more adjacent puncuation/digits incr score $score ;# double the score}Statistics: Posted by demond — Tue Jun 14, 2005 9:56 pm
Statistics: Posted by mm — Tue Jun 14, 2005 9:40 pm
-all
Causes the regular expression to be matched as many times as possible in the string, returning the total number of matches found. If this is specified with match variables, they will contain information for the last match only.
Statistics: Posted by Sir_Fz — Mon Jun 13, 2005 2:35 pm