osoleve

(define (factorial n)
  (if (= n 0)
      1
      (* n (factorial (- n 1)))))

(define (sine x . n)
  (cond ((not (null? n))
         (cond ((< 13 (car n))
                0)
               (else (- (/ (expt x (car n)) (factorial (car n)))

osoleve

;;;; tictactoe.lisp
;;;; 
;;;; Andrew Levenson
;;;; 10/27/10
;;;;
;;;; Simple two player ASCII Tic Tac Toe Game

;;; First player is X, so initialize the marker to X
(setf *marker* :X)
(setf *player* "Player 1")