鸡兔同笼

/db_自贡黄明儒_

1. ;;鸡兔同笼
   
2. ;;《孙子算经》:有若干只鸡兔同在一个笼子里，从上面数，有35个头,从下面数，有94只脚。问笼中各有几只鸡和兔？
   
3. ;;抬腿法:假如鸡与兔子都抬起两只脚，还剩下94－35×2=24只脚 ， 这时鸡是屁股坐在地上，地上只有兔子的脚，而且每只兔子有两只脚在地上，所以有24÷2=12只兔子，就有35－12=23只鸡。
   
4. (defun w1 (heads legs / HENS RABITS)
   
5.   (setq rabits (/ (- legs (* heads 2)) 2))
   
6.   (setq hens (- heads rabits))
   
7.   (mapcar 'princ (list "\n 兔子" rabits "只"))
   
8.   (mapcar 'princ (list "\n 鸡" hens "只"))
   
9. )

;;鸡兔同笼<br /> ;;《孙子算经》:有若干只鸡兔同在一个笼子里，从上面数，有35个头,从下面数，有94只脚。问笼中各有几只鸡和兔？<br /> ;;抬腿法:假如鸡与兔子都抬起两只脚，还剩下94－35×2=24只脚 ， 这时鸡是屁股坐在地上，地上只有兔子的脚，而且每只兔子有两只脚在地上，所以有24÷2=12只兔子，就有35－12=23只鸡。<br /> (defun w1 (heads legs / HENS RABITS)<br />   (setq rabits (/ (- legs (* heads 2)) 2))<br />   (setq hens (- heads rabits))<br />   (mapcar 'princ (list "\n 兔子" rabits "只"))<br />   (mapcar 'princ (list "\n 鸡" hens "只"))<br /> )

st788796

老早有个帖子，有精彩点评和代码

xvjiex

感谢分享鸡兔同笼！

yuanming8847

谢谢分享鸡兔同笼！