作者: Noritsugu Nakamura
日時: 2003/3/04(21:59)
中村 のりつぐ です。

In article <20030228.095745.03648286.tsutomu@...> 
Tsutomu Hiroshima <tsutomu@...> wrote:
> 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))))

Gauche でも動きました！

# GCL で動かそうとして挫折中…

       中村 典嗣  E-mail:     nnakamur@...