Bruce Hill
147e0f0269
changed T(), T, T_t, T_s type names to T(), T$$info, T$$type, T$$struct for unambiguity
28 lines
464 B
Tcl
28 lines
464 B
Tcl
|
|
struct Foo(x:Int, y:Int):
|
|
func len(f:Foo->Num):
|
|
return Num.sqrt(Num(f.x*f.x + f.y*f.y))!
|
|
|
|
func main():
|
|
>> 3 _min_ 5
|
|
= 3
|
|
>> 5 _min_ 3
|
|
= 3
|
|
|
|
>> Foo(5, 1) _min_ Foo(5, 999)
|
|
= Foo(x=5, y=1)
|
|
|
|
>> Foo(5, 999) _min_.x Foo(5, 1)
|
|
= Foo(x=5, y=999)
|
|
|
|
>> Foo(999, 1) _min_.y Foo(1, 10)
|
|
= Foo(x=999, y=1)
|
|
|
|
>> Foo(-999, -999) _max_:len() Foo(10, 10)
|
|
= Foo(x=-999, y=-999)
|
|
|
|
|
|
>> foos := [Foo(5, 1), Foo(5, 99), Foo(-999, -999)]
|
|
>> (_max_: foos)!
|
|
= Foo(x=5, y=99)
|