(in-package :rtg-math)

(defun rand-m4 ()
  (m4:make (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)
           (- (random 20f0) 10f0)))

(defun make-circle-of-n (n)
  (let ((r (loop :for i :below n :collect (rand-m4))))
    (setf (cdr (last r)) r)
    r))


(defun test ()
  (let ((data (make-circle-of-n 1000))
        (sample (rand-m4))
        (dummy nil))
    (time
     (loop :for i :below 1000000 :for d :in data :do
        (setf dummy (m4:= sample d))))
    (time
     (loop :for i :below 1000000 :for d :in data :do
        (setf dummy (equalp sample d))))
    (print dummy)))


;; RTG-MATH> (test)

;; Evaluation took:
;;   0.012 seconds of real time
;;   0.012000 seconds of total run time (0.012000 user, 0.000000 system)
;;   100.00% CPU
;;   36,713,970 processor cycles
;;   0 bytes consed

;; Evaluation took:
;;   0.039 seconds of real time
;;   0.040000 seconds of total run time (0.040000 user, 0.000000 system)
;;   102.56% CPU
;;   118,637,629 processor cycles
;;   5,520 bytes consed