home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / LISTSUM.(X) < prev    next >
Text File  |  1993-10-16  |  102b  |  4 lines
  1. #    listsum(x) converts a list x into sum
  2.  
  3. listsum(list_) := sum(member(list,j),j,1,length(list),1)
  4.