home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
lifeos2.zip
/
LIFE-1.02
/
TESTS
/
IN
/
UNIFY.IN
< prev
next >
Wrap
Text File
|
1996-06-04
|
594b
|
55 lines
A:a(1,2)=a(3=>q,4=>r)?
.
A:a(3=>q,1)=a(4=>r,2=>2)?
.
A:a(3=>q,4=>r)=a(1,2)?
.
A:a(4=>r,2=>2)=a(3=>q,1)?
.
A:a({1;2;3})=a({real;int})?
;
;
;
;
;
;
A:a({1;2;3})=a({string;int})?
;
;
;
A=a(10)& @(1=>11)?
A=a(10)& @(1=>10)?
A=@(X,3=>X)?
A=@(3=>Y,2=>Y)?
A=a(Z,foo=>Z)?
A=a(foo=>Z,5=>Z)?
A=@(4=>bah)?
.
a(3=>q,4=>r)=A:a(1,2)?
.
a(4=>r,2=>2)=A:a(3=>q,1)?
.
a(1,2)=A:a(3=>q,4=>r)?
.
a(3=>q,1)=A:a(4=>r,2=>2)?
.
a({real;int})=A:a({1;2;3})?
;
;
;
;
;
;
a({string;int})=A:a({1;2;3})?
;
;
;
a(10)& @(1=>11)=A?
a(10)& @(1=>10)=A?
@(X,3=>X)=A?
@(3=>Y,2=>Y)=A?
a(Z,foo=>Z)=A?
a(foo=>Z,5=>Z)=A?
@(4=>bah)=A?
.