Re: [bep] 割り算の答えを小数で出すには？ <Re: learning lisp: while

[Reiko TAKAHASHI <HFC03614@nifty.ne.jp> (高橋玲子)]

　またまたr高橋です(^^;)。

Reply Reiko TAKAHASHI <HFC03614@...> (高橋玲子)'s message:

} 　ええん、(float)同士で割ったら、割り切れる場合は答えも整数になるのかなと
} 思ったら、ならないんですね……。
} どうしよう……。

　どさくさで、
(not (= (/ x y) (/ (float x) y)))
としてみました。

　で、lisp-interaction-modeでは素数らしき数をなんとか表示してくれるように
なったのですが、そうじゃないとなにも表示してくれません。
(print)を使ってみているのですが……。
あと、3以下の数でずるをしています。どうしたらいいか、わかりません。
ううん、また明日考えてみます……。

(let ((x 1000) (y 999))
  (while 
      (> x 3)
    (while 
	(and (> y 1)  
	     (not (= (/ x y) (/ (float x) y))))
      (setq y (- y 1))
      (when (= y 1) (print x))) 
    (setq x (- x 1) y (- x 1)))
    (print 3)
    (print 2)
    (print 1))

……(^^;;;)


**-***-***-***-***-***-***-***-***-***-***-***-**
           Reiko TAKAHASHI  (高橋玲子)
         E-mail:  HFC03614@...
         ICQ UIN: 85924121  (Twinkle)
**-***-***-***-***-***-***-***-***-***-***-***-**