TSabc 発言

廣島です．
しばらく留守にしていると，
Scheme の投稿が有るじゃないですか．;; 一週間以上前だけど...

> ; guile
> (let ((a nil) (b nil) (x nil))
>   (do ((y 1 (+ y 1)))
>       ((> y 1001))
>       (set! a (- 2003 y))
>       (set! x (- 100000 y))
>       (set! b (/ x a))
>       (if (zero? (modulo x a))
>         (write (list a b)))
> ))

set! を使うのは好みでないので，
同じアルゴリズムを書き直しました．
guile で動かして下さい．

(let foo ((a 2003) (x 100000))
  (if (zero? (modulo x a))
      (write (list a (/ x a))))
  (if (> a 1001) (foo (- a 1) (- x 1))))


-----------------------------
	廣島 勉
	(tsutomu@...)