circle

circle hack in emacs

(defun connet (side)
  (let ((monitor (make-array "(100 100) :initial-element nil)))
    (loop for i from 0 below 100 do
	 (loop for j from 0 below 100 do
	       (let* ((x (* side (/ i 100)))
		        (y (* side (/ j 100)))
				     (c (round (+ (* x x) (* y y)))))
					 (when (evenp c) (setf (aref monitor i j) t)))))
    (loop for x from 0 below 100 do
	 (format t "~%")
	  (loop for y from 0 below 100 do
	        (format t "~A" (if (aref monitor x y) "*" " "))))
    (format t "~%")))

(defun connet-driver (&key (sec 0))
  (loop for side from 1 below 100 do
       (sleep sec)
       (connet side)))