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

snsj · 发表于 2013-7-26 12:33:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 snsj 于 2013-7-26 12:35 编辑

最近XD出一堆API，大家都在搞API了，出个算法的题目换换胃口：
古代算经中的题目：公鸡每只5元，母鸡每只3元，小鸡1元3只；求100元买100只鸡的算法有多少种
要求
1、使用LISP
2、前十个帖子高飞鸟不能发帖：）

Lisphk · 发表于 2013-7-26 14:11:17

买20只公鸡算一种不？还是三种性别的都必须买啊。

snsj · 发表于 2013-7-26 14:34:29

必须三种鸡都买

处处问题鸟 · 发表于 2013-7-26 14:42:59

本帖最后由处处问题鸟于 2013-7-26 16:18 编辑

直观的算法，遍历！

(defun tt (TOTALPRICE TOTALS COCKPRICE HENPRICE CHICKENPRICE / I J K RESULT
)
(setq i 0)
(while
(< (setq i (1+ i))
(1+ (fix (/ (- TOTALPRICE HENPRICE CHICKENPRICE) COCKPRICE))
)
)
(setq j 0)
(while
(< (setq j (1+ j))
(1+ (fix (/ (- TOTALPRICE COCKPRICE CHICKENPRICE) HENPRICE))
)
)
(setq k (- Totals i j))
(if (equal TotalPrice
(apply '+
(mapcar '*
(list i j k)
(list cockPrice HenPrice chickenPrice)
)
)
1e-6
)
;;返回'(公鸡数母鸡数小鸡数)
(setq result (cons (list i j k) result))
)
)
)
result
)
;;返回'(公鸡数母鸡数小鸡数)
(setq result (cons (list i j k) result))
)
)
)
result
)

(defun tt (TOTALPRICE TOTALS     COCKPRICE  HENPRICE   CHICKENPRICE           /          I          J          K          RESULT 
           ) 
  (setq i 0) 
  (while 
    (< (setq i (1+ i)) 
       (1+ (fix (/ (- TOTALPRICE HENPRICE CHICKENPRICE) COCKPRICE)) 
           ) 
       ) 
     (setq j 0) 
     (while 
       (< (setq j (1+ j)) 
          (1+ (fix (/ (- TOTALPRICE COCKPRICE CHICKENPRICE) HENPRICE)) 
              ) 
          ) 
        (setq k (- Totals i j)) 
        (if (equal TotalPrice 
                   (apply '+ 
                          (mapcar '* 
                                  (list i j k) 
                                  (list cockPrice HenPrice chickenPrice) 
                                  ) 
                          ) 
                   1e-6 
                   ) 
          ;;返回'(公鸡数 母鸡数 小鸡数) 
          (setq result (cons (list i j k) result)) 
          ) 
        ) 
     ) 
  result 
  ) 
  ;;返回'(公鸡数 母鸡数 小鸡数) 
  (setq result (cons (list i j k) result)) 
      ) 
    ) 
  ) 
  result 
)

;;测试
(tt 100 100 5 3 (/ 1.0 3))
;;返回

‘((12 4 84) (8 11 81) (4 18 78))

snsj · 发表于 2013-7-26 15:36:24

本帖最后由 snsj 于 2013-7-26 15:37 编辑

(defun c:cs (/ gj mj xj kj)
(setq gj 1 mj 1)
(repeat 19
(repeat 33
(setq xj(- 100 gj mj))
(if(and(zerop(rem xj 3))(eq(+(* gj 5)(* mj 3)(/ xj 3))100))
(setq kj(cons(list gj mj xj)kj))
)(setq mj(1+ mj))
)(setq gj(1+ gj)mj 1)
)kj
)

Lisphk · 发表于 2013-7-26 15:50:56

snsj 发表于 2013-7-26 15:36

红富士，repeat 19 33是根据什么定的啊？

牢固 · 发表于 2013-7-26 15:57:29

Lisphk 发表于 2013-7-26 15:50
红富士，repeat 19 33是根据什么定的啊？

19 = (fix (/ (- 100 3 0.3333) 5))

33 其实应为 31
(fix (/ (- 100 5 0.3333) 3))

Lisphk · 发表于 2013-7-26 16:07:32

牢固发表于 2013-7-26 15:57
19 = (fix (/ (- 100 3 0.3333) 5))

33 其实应为 31

这是不是好像趣味数学里面的东西？记得小时候学过的韩信点兵什么的。

snsj · 发表于 2013-7-26 16:31:41

牢固发表于 2013-7-26 15:57
19 = (fix (/ (- 100 3 0.3333) 5))

33 其实应为 31

谢固版捧场，的确应该是31

snsj · 发表于 2013-7-26 16:34:14

本帖最后由 snsj 于 2013-7-26 16:35 编辑

Lisphk 发表于 2013-7-26 15:50
红富士，repeat 19 33是根据什么定的啊？

如果每只鸡都买最多只能买19只公鸡、31只母鸡，才能保证每只鸡都能买到
更正一点，我那不是红富士，是红水晶苹果：）

cre8o · 发表于 2013-7-27 01:04:43

我觉得用矩阵应该能简单点尽管实质还是方程组..

duotu007 · 发表于 2013-7-27 08:33:55

类似条材优化

仲文玉 · 发表于 2013-7-27 10:42:34

:lol大中小和尚分馒头吧？类似类似

zxq0220 · 发表于 2013-7-28 08:06:36

多年前的百人百饼。
论坛怎么找不到了？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:百人百饼.lsp
下载次数:2 文件大小:14.13 KB
下载权限: 不限以上 [免费赚D豆]

xyp1964 · 发表于 2013-7-28 08:28:21

(defun c:tt ()
(setq x 1)
(while (< x 19)
(setq y 1)
(while (< y 31)
(setq z (- 100 x y))
(if (= (+ (* x 5) (* y 3) (/ z 3.0)) 100)
(print (list "公鸡=" x "母鸡=" y "小鸡=" z))
)
(setq y (1+ y))
)
(setq x (1+ x))
)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

[他山之石] 古代《算经》中的买鸡LISP算法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

评分

点评

点评

点评

浏览过的版块