Ответ

Spearance 04.07.2008 08:37

короче я все замерил чтобы диалог далее был объективным, результаты такие:
мой первый вариант действительно кушает больше чем Мишин, однако этот вариант отъедает ещё меньше:

@textPreprocess[text][tRepl;tTags]
$result[$text]
^if(^text.pos[<] > 0 || ^text.pos[>] > 0){
	$tRepl[^table::create{from	to^#0A<	&lt^;^#0A>	&gt^;}]
	$tTags[^table::create{tag}]
	$result[^text.match[<(/?(?=[a-z])[^^>]+)>][gi]{^tTags.append{$match.1}~*~}]
	$result[^result.replace[$tRepl]]
	^if($tTags){
		$result[^result.match[~\*~][g]{<$tTags.tag>^tTags.offset(1)}]
	}
}
### End @textPreprocess

---