【挑战】空汽水瓶的问题

newer

有这样一道智力题：“某商店规定：三个空汽水瓶可以换一瓶汽水。小张手上有十个空汽水瓶，她最多可以换多少瓶汽水喝？


你知道答案吗？ 你能用LISP写出解决代码吗？

aimisiyou

10/(3-1)=5,是否太简单了?

st788796

构造一个倒金字塔？

lucas3

N版不会是看了此贴，也想挑战一下吧:lol

http://bbs.mjtd.com/thread-111959-1-1.html

st788796

(((10 - 3) + 1) - 3) + 1)  / 3)

newer

lucas3 发表于 2014-12-19 19:07
N版不会是看了此贴，也想挑战一下吧

http://bbs.mjtd.com/thread-111959-1-1.html

没看过这个帖子，是从别的地方看到的，和LISP无关的地方。你知道答案吗？

newer

st788796 发表于 2014-12-19 19:13
(((10 - 3) + 1) - 3) + 1)  / 3)

你这是几瓶？ 2瓶？

/db_自贡黄明儒_

减去余数Rem

newer

aimisiyou 发表于 2014-12-19 18:58
10/(3-1)=5,是否太简单了?

咋来的？

wowan1314

2. (defun t11 (x / a b c)
   
3.     (if (>= x 3)
   
4.         (progn
   
5.             (setq a (fix (/ x 3)) b (rem x 3) c a)
   
6.             (if (= b 0)
   
7.                 c
   
8.                 (while (>= (setq x (+ a b)) 3)
   
9.                     (setq a (fix (/ x 3)) b (rem x 3) c (+ c a))
   
10.                 )
    
11.             )
    
12.         )
    
13.         0
    
14.     )
    
15. )

(defun t11 (x / a b c) <br />     (if (>= x 3)<br />         (progn<br />             (setq a (fix (/ x 3)) b (rem x 3) c a)<br />             (if (= b 0)<br />                 c<br />                 (while (>= (setq x (+ a b)) 3)<br />                     (setq a (fix (/ x 3)) b (rem x 3) c (+ c a))<br />                 )<br />             )<br />         )<br />         0<br />     )<br /> )

aimisiyou

newer 发表于 2014-12-19 19:19
咋来的？

3个空瓶=1瓶汽水=1个空瓶+1瓶子汽水-------------》2个空瓶=1瓶子汽水

守仁格竹GM

(setq num 28)
(setq yu (rem num 3))
(setq a (- num yu))
(while (>= (setq a (/ a 3)) 1)
      (setq lst (append a lst))
)
(1+ (apply '+ lst))
手机写得，没测试，