Liren Large Software Subsidy 13/13.iso/p/p024/5.img/R11SUPP.EXE/FACT.LSP

Lisp/Scheme | 1990-07-30 | 1.1 KB | 34 lines

;;; --------------------------------------------------------------------------;
;;; FACT.LSP
;;;   Copyright (C) 1990 by Autodesk, Inc.
;;;
;;;   Permission to use, copy, modify, and distribute this software and its
;;;   documentation for any purpose and without fee is hereby granted.
;;;
;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;;   ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;;   MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; --------------------------------------------------------------------------;
;;; DESCRIPTION
;;;
;;;  This is a programming example of a recursive function which calculates
;;;  the factorial of an integer.
;;;
;;; --------------------------------------------------------------------------;

(defun factor (y)
  (cond ((= 0 y) 1)
    (t (* y (factor (1- y))))
  )
)

(defun C:FACT (/ x)
  (initget 7)                         ;x must not be null, negative or zero
  (setq x (getint "Enter an integer: "))
  (factor (float x))
)

;;; --------------------------------------------------------------------------;