home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / MANUAL11.IN < prev    next >
Text File  |  1996-06-04  |  109b  |  5 lines
  1. X:sum -> sum_all(features(X),X).
  2. sum_all([F|FL],X) -> X.F+sum_all(FL,X).
  3. sum_all([]) -> 0.
  4. A=sum(1,2,3,4,5)?
  5.