;;;  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS
;;;  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS
;;;  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS  VARIOUS

(IN-PACKAGE #:cat)

(PROVIDE "various")


(DEFUN BINOMIAL-N-P (n p)
  (declare (fixnum n p))
  (when (> (2-exp p) n)
    (setf p (- n p)))
  (the fixnum
       (do ((nn n (1- nn))
	    (pp 1 (1+ pp))
	    (rslt 1 (/ (* rslt nn) pp)))
	   ((> pp p) rslt)
	 (declare (fixnum nn pp rslt)))))


(SETF *PRINT-LEVEL* 5
      *PRINT-LENGTH* 10)

(DEFUN <A-B< (a b)
  (declare (fixnum a b))
  (the list
       (do ((i (1- b) (1- i))
	    (rslt +empty-list+ (cons i rslt)))
	   ((< i a) rslt)
         (declare (fixnum i) (list rslt)))))

(DEFUN <A-B> (a b)
  (declare (fixnum a b))
  (the list
       (do ((i b (1- i))
	    (rslt +empty-list+ (cons i rslt)))
	   ((< i a) rslt)
	 (declare (fixnum i) (list rslt)))))

(DEFUN >A-B< (a b)
  (declare (fixnum a b))
  (the list
       (do ((i (1- b) (1- i))
	    (rslt +empty-list+ (cons i rslt)))
	   ((= i a) rslt)
	 (declare (fixnum i) (list rslt)))))

(DEFUN >A-B> (a b)
  (declare (fixnum a b))
  (the list
       (do ((i b (1- i))
	    (rslt +empty-list+ (cons i rslt)))
	   ((= i a) rslt)
	 (declare (fixnum i) (list rslt)))))


(DEFUN V<A-B> (a b)
  (declare (fixnum a b))
  (the (vector fixnum)
       (let ((rslt (make-array (1+ (- b a)) :element-type 'fixnum)))
	 (declare (type (vector fixnum) rslt))
	 (do ((i a (1+ i))
	      (mark 0 (1+ mark)))
	     ((> i b))
	   (declare (fixnum i mark))
	   (setf (aref rslt mark) i))
	 rslt)))


(DEFUN SRANDOM (max)
  (declare (fixnum max))
  (the fixnum
       (let ((rslt (- (random (+ max max)) max)))
         (declare (fixnum rslt))
         (if (zerop rslt)
	     max
	     rslt))))


(DEFUN CLOCK ()
  (multiple-value-bind (sec min hour day month year)
      (get-decoded-time)
    (format t "~%;; Clock -> ~4D-~2,'0D-~2,'0D, ~Dh ~Dm ~Ds.~%"
	    year month day hour min sec))
  (values))

#|
(clock))
|#

(DEFUN DONE ()
  (format t "~%---done---")
  (values))

#|
(done))
|#