Ответ

G_Z 09.08.2013 21:46

@main[]
^for[i](1;3){
	$code[@main[][locals]
	^eval(2 * 2)]
	$good(^check[$code])

	Result $i is ^if($good){good}{bad}
}[<br/>]

@check[code][locals]
$path[]
$name[^math:uid64[]]
$file[$path/$name]

^code.save[$file]
^try{
	^use[$file]
	$result(true)
}{
	$result(false)
 	$exception.handled(true)
}{
	^file:delete[$file]
}