home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / CONTRIB / LISP / SUM.L < prev   
Lisp/Scheme  |  1994-10-25  |  218b  |  20 lines
  1. { Sum of the first n integers - gri 12 Aug 94 }
  2.  
  3. (setq sum
  4.    (lambda (n)
  5.       (cond
  6.          ((<= n 0) 0)
  7.          (t (+ n (sum (- n 1))))
  8.       )
  9.    )
  10. )
  11.  
  12.  
  13. { Examples:
  14.  
  15. (sum 0)
  16. (sum 10)
  17. (sum 100)
  18. (sum 1000)
  19. (sum 0)
  20. }