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

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

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

　髪の毛を乾かしていたら、とんでもなく無駄なことをやっていたのに気づきま
した。
絶対割れるはずのない数で割っていた……。

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

……おやすみなさい(^^;)。


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