Subversion Repositories programming

Rev

Rev 430 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 430 Rev 431
Line 50... Line 50...
50 
      ((null LI) RES)
 50 
      ((null LI) RES)
51 
  )
 51 
  )
52 
)
 52 
)
53 
 
 53 
 
54 
;;; Problem 3
 54 
;;; Problem 3
55 
;;; FIXME: not finished
 - 
 
56 
(defun DO_FACTORIAL (NUM)
 55 
(defun DO_FACTORIAL (NUM)
57 
  (do ((NUM NUM (1- NUM))
 56 
  (do ((NUM NUM (1- NUM))
58 
       (RES 1 (* RES NUM)))
 57 
       (RES 1 (* RES NUM)))
59 
      ((<= NUM 0) RES)
 58 
      ((<= NUM 0) RES)
60 
  )
 59 
  )