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 >
Text File  |  1996-06-04  |  415b  |  66 lines

  1. app2(A,B)=C?
  2. A=[1,2]?
  3. B=[]?
  4.  
  5.  
  6. A=[1,2|B]?
  7. B=[3,4]?
  8. .
  9. app1(A,B,C)?
  10. A=[1,2]?
  11. B=[]?
  12.  
  13.  
  14. A=[1,2|B]?
  15. B=[3,4]?
  16. .
  17. app3(A,B,C)?
  18. ;
  19. ;
  20. ;
  21. ;
  22. A=[1,2,3,4,5]?
  23. A=[1,2,3,4]?
  24.  
  25.  
  26. app3(A,B,C)?
  27. A=[1]?
  28.  
  29. app3(A,B,[1,2,3,4,5])?
  30. ;
  31. ;
  32. ;
  33. ;
  34. ;
  35. ;
  36. app4(A,B,C)?
  37. A=[1,2]?
  38. C=[1,2]?
  39. B=A.2 .2?
  40. A=C?
  41. .
  42. app4(A,B,C)?
  43. A=[]?
  44. B=C?
  45. .
  46. app4(A,B,C)?
  47. A=C?
  48. B=[2,3]?
  49. A=[5,4|X]?
  50. X=B?
  51.  
  52.  
  53. A=[7,8|X]?
  54. X=B?
  55. X=[]?
  56. .
  57. app5(A,B)=C?
  58. A=[1,2|X]?
  59. B=list?
  60. X=nil?
  61.  
  62.  
  63.  
  64. A=[1,2],B=[4,3]?
  65. .
  66.