Ответ

smalex 20.10.2004 17:04

пока ждал ответа, придумал "своё" решение :-)

@main[]

$people1[^people::new[]]
^people1.setName[masha]

$people2[^people::new[]]
^people2.setName[dasha]

$people3[$people1]

^if(^people1.CompareTo[$people2]){
	people1 == people2<br/>
}
^if(^people1.CompareTo[$people3]){
	people1 == people3<br/>
}
^if(^people3.CompareTo[$people1]){
	people3 == people1<br/>
}
###

@CLASS
object
###

@new[]
^_CalcHashCode[]
###

@CompareTo[object]
$result(^if($_hashCode1 == $object._hashCode1 && $_hashCode2 == $object._hashCode2){1}{0})
###

@_CalcHashCode[]
$_hashCode1(^math:random(2147483648))
$_hashCode2(^math:random(2147483648))
###

@CLASS
people
###

@BASE
object
###

@new[]
^BASE:new[]
$_name[]
###

@setName[value]
$_name[$value]
###

---