home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
lifeos2.zip
/
LIFE-1.02
/
TESTS
/
IN
/
APPEND.IN
< prev
next >
Wrap
Text File
|
1996-06-04
|
415b
|
66 lines
app2(A,B)=C?
A=[1,2]?
B=[]?
A=[1,2|B]?
B=[3,4]?
.
app1(A,B,C)?
A=[1,2]?
B=[]?
A=[1,2|B]?
B=[3,4]?
.
app3(A,B,C)?
;
;
;
;
A=[1,2,3,4,5]?
A=[1,2,3,4]?
app3(A,B,C)?
A=[1]?
app3(A,B,[1,2,3,4,5])?
;
;
;
;
;
;
app4(A,B,C)?
A=[1,2]?
C=[1,2]?
B=A.2 .2?
A=C?
.
app4(A,B,C)?
A=[]?
B=C?
.
app4(A,B,C)?
A=C?
B=[2,3]?
A=[5,4|X]?
X=B?
A=[7,8|X]?
X=B?
X=[]?
.
app5(A,B)=C?
A=[1,2|X]?
B=list?
X=nil?
A=[1,2],B=[4,3]?
.