home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / MRESID.IN < prev    next >
Text File  |  1996-06-04  |  414b  |  35 lines
  1. mresiduate([],write(abc))?
  2. A=[S|B],B=[],mresiduate(A,write(cde))?
  3. S=34?
  4.  
  5. B=[]?
  6. .
  7. A=[S|B],mresiduate(A,write(cde))?
  8. mresiduate({A;B;C},write(fgh))?
  9. mresiduate([A|B:[]],write(ijk))?
  10. A=int?
  11.  
  12. .
  13. D=[],C=[Z|D],B=[Y|C],A=[X|B],mresiduate(A,write(A))?
  14. X=3?
  15.  
  16. Y=4?
  17.  
  18. Z=5?
  19.  
  20. X=int?
  21. Y=int?
  22. .
  23. mresiduate([X:int,Y:int],write(qwe))?
  24. X=@?
  25. Y=@?
  26. .
  27. A=[A],mresiduate(A,write(qwe))?
  28. A=@?
  29.  
  30. .
  31. mresiduate([A,A,A,A,A,B],write(qwe))?
  32. A=23?
  33.  
  34. .
  35.