Раз уж все равно тестируете

Maxx 04.07.2008 11:04 / 04.07.2008 11:04

Тут еще один подвариант появился (см. чат):

@textPreprocess[text][tRepl;hTags;md5]
$result[$text]
^if(^text.pos[<] > 0 || ^text.pos[>] > 0){
	$tRepl[^table::create{from	to^#0A<	&lt^;^#0A>	&gt^;}]
	$hTags[^hash::create[]]
	$result[^text.match[<(/?(?=[a-z])[^^>]+)>][gi]{^if(!def $hTags.[$match.1]){$hTags.[$match.1][$.tag[$match.1]$.md5[^math:md5[$match.1]]]}$md5}]
	$result[^result.replace[$tRepl]]
	^if($hTags){
		$tRepl[^table::create{from	to^#0A^hTags.foreach[k;v]{$v.md5	<$v.tag>}[^#0A]}]
		$result[^result.replace[$tRepl]]
	}
}
### End @textPreprocess

т.е. md5 вычисляем только когда тэга еще нет в хэше

---