百鸡百钱.lsp

用cad进行二次开发

(defun fx()
(setq x 0 y 0 z 0)
  (while (< x 20)
    (setq y 0)
    (while (< y 33)
      (setq z (- 100 x y))
	    (if (and (=(rem z 3) 0) (= (+(* x 5) (* y 3) (/ z 3)) 100))
	     (progn
	       (print (list (cons '公鸡的只数为: x) (cons '母鸡的只数为: y)
				 (cons '小鸡的只数为: z)))
	            
	       (print)
	       )
             )
            (setq y (1+ y))
      )
    (setq x (1+ x))
    )
 )