сами-то видите, что код дублируется?

Misha v.3 04.05.2012 02:06

т.е. если забыть о том, что эту задачу решать select-ами плохо, приведённый код нужно упростить:

@getParent[id][sub]
^while($id){
	$sub[^t.select($t.Id==$id)]
	$sub.Id $sub.name
	$id($sub.Id)
}

---