古代《算经》中的买鸡LISP算法

天青色

2. ;求解百元买百鸡问题
   
3. ;公鸡每只5元，母鸡每只3元，小鸡1元3只
   
4. ;求公鸡、母鸡、小鸡各几只
   
5. (defun c:chicken (/ cock hen chick cost)
   
6.   (setq cock 1);cock从1开始
   
7.   (while (< cock (/ 100 5)) ;cock最多20
   
8.     (setq hen 1) ;hen从1开始
   
9.     (while (< hen (/ 100 3)) ;hen最多33
   
10.       (setq chick (- 100 cock hen));余额为chick
    
11.       (setq cost (+ (* 5.0 cock) (* 3.0 hen) (/ chick 3.0)))
    
12.       (if (= cost 100)
    
13.         (progn
    
14.           (princ (list "cock=" cock "hen= " hen "chick=" chick))
    
15.           (princ "\n")
    
16.         ) ;_ 结束progn
    
17.       ) ;_ 结束if
    
18.       (setq hen (+ hen 1))
    
19.     ) ;_ 结束while
    
20.     (setq cock (+ cock 1))
    
21.   ) ;_ 结束while
    
22.   (princ)
    
23. ) ;_ 结束defun

;求解百元买百鸡问题<br /> ;公鸡每只5元，母鸡每只3元，小鸡1元3只<br /> ;求公鸡、母鸡、小鸡各几只<br /> (defun c:chicken (/ cock hen chick cost)<br />   (setq cock 1);cock从1开始<br />   (while (< cock (/ 100 5)) ;cock最多20<br />     (setq hen 1) ;hen从1开始<br />     (while (< hen (/ 100 3)) ;hen最多33<br />       (setq chick (- 100 cock hen));余额为chick<br />       (setq cost (+ (* 5.0 cock) (* 3.0 hen) (/ chick 3.0)))<br />       (if (= cost 100)<br />         (progn<br />           (princ (list "cock=" cock "hen= " hen "chick=" chick))<br />           (princ "\n")<br />         ) ;_ 结束progn<br />       ) ;_ 结束if<br />       (setq hen (+ hen 1))<br />     ) ;_ 结束while<br />     (setq cock (+ cock 1))<br />   ) ;_ 结束while<br />   (princ)<br /> ) ;_ 结束defun

命令: chicken
(cock= 4 hen=  18 chick= 78)
(cock= 8 hen=  11 chick= 81)
(cock= 12 hen=  4 chick= 84)

ucuc2003

有趣的题目！！

wowan1314

除了遍历！还有其他方法吗？

2. (defun c:t11 (/ a b c)
   
3.     (setq a 1 b 1)
   
4.     (while(< a 20)
   
5.         (while (< b 33)
   
6.             (if
   
7.                 (and (> (setq c (- 100 (* a 5)(* b 3))) 0)
   
8.                     (= (+ a b (* c 3) ) 100
   
9.                     )
   
10.                 )
    
11.                 (mapcar 'print (list "--" a b (* c 3))
    
12.                 )
    
13.             )
    
14.             (setq b (1+ b))
    
15.         )
    
16.         (setq a (1+ a) b 1)
    
17.     )
    
18.     (princ )
    
19. )

(defun c:t11 (/ a b c) <br />     (setq a 1 b 1)<br />     (while(< a 20)<br />         (while (< b 33)<br />             (if<br />                 (and (> (setq c (- 100 (* a 5)(* b 3))) 0)<br />                     (= (+ a b (* c 3) ) 100<br />                     )<br />                 )<br />                 (mapcar 'print (list "--" a b (* c 3))<br />                 )<br />             )<br />             (setq b (1+ b))<br />         )<br />         (setq a (1+ a) b 1)<br />     )<br />     (princ )<br /> )

命令: T11
"--"
4
18
78
"--"
8
11
81
"--"
12
4
84