home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / levelki / fak.lsp next >
Encoding:
Text File  |  1988-04-03  |  292 b   |  13 lines
  1. ; Fakultätsdefinition
  2. (define (fak n)
  3.   (cond ((eq? n 1) 1)
  4.         (else (* n (fak (- n 1))))))
  5.  
  6. ; Die Funktion q aus Gödel, Escher Bach
  7. (define (q n)
  8.   (cond ((eq? n 1) 1)
  9.         ((eq? n 2) 1)
  10.         (else (+ (q (- n (q (- n 1))))
  11.                  (q (- n (q (- n 2))))))))
  12.  
  13.