用lisp写出只显示圆
(defun circle ()
(let ((x 0) (y 0) (r 5))
(loop for x from (- r) to r do
(loop for y from (- r) to r do
(if (= (+ (* x x) (* y y)) (* r r)) ; 检查是否在圆上
(format t "~a,~a~%" x y)))) ) ; 输出坐标
创作工场
免责声明：
以上内容除特别注明外均来源于网友提问，创作工场回答，未经许可，严谨转载。
点击这里>>使用🔥专业版，更聪明、更完整、更原创！