File: fac.lisp

package info (click to toggle)
clisp 1%3A2.49.20241228.gitc3ec11b-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 57,724 kB
  • sloc: lisp: 124,909; ansic: 83,890; xml: 27,431; sh: 11,074; fortran: 7,307; makefile: 1,456; perl: 164; sed: 13
file content (7 lines) | stat: -rw-r--r-- 142 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
 
;; Benchmark for Common Lisp: factorial
;; Bruno Haible 1989

(defun fac (n)
  (do* ((i 0 (1+ i))
        (f 1 (* f i)))
       ((= i n) f)))