Re: [bep] learning lisp: prime numbers

[Koichi INOUE <inoue@argv.org>]

$B0f>e$G$9!#(B

TAKAHASHI Naoto <ntakahas@...> writes:

> (setq x '(a b c)) => (a b c)
> (setq y x) => (a b c)
> (eq x y) => t
> 
> $B$G$9$,!"(B
> 
> (setq x '(a b c)) => (a b c)
> (setq y '(a b c)) => (a b c)
> (eq x y) => nil

$B%]%$%s%?Hf3S$N$h$&$J0u>]$G$7$g$&$+!#(B
$B8el9gF1$8(B(a b c)$B$G$b$=$l$>$l$N%j%9%H$N;2>H%]%$%s%?$O0c$&!"$_$?$$$J!#(B
$BJRJ}$N%j%9%H$r8e$+$iJQ99$7$?$H$7$F$b$b$&0lJ}$K$O1F6A$7$J$$$7!#(B
setq $B$G$"$k%7%s%\%k$rI>2A$7$?CM$rB>$N%7%s%\%k$K%P%$%s%I$9$k$H!"%]%$%s%?(B
$B$,%3%T!<$5$l$k$h$&$J$b$N$GF10l$N%*%V%8%'%/%H(B($B$3$N>l9g$O(B(a b c)$BN(B)$B$N%j%9(B
$B%H$r$5$9$h$&$K$J$j$^$9$h$M!#(B


> $B$"$H$3$l$O:#;W$$IU$$$?$s$G$9$,!"(Bisprime $B$NCf$G3d$j@Z$l$k$+.$5$$(B n $B$G$b3d$j@Z$l$k$O$:$G$9!#$D$^$j(B x $B$,AG?t$G$"$k$+(B
> $B$I$&$+D4$Y$k$K$O!"(B(sqrt x) $B0J2<$NAG?t$G3d$j@Z$l$k$+$I$&$+$@$1$rD4$Y$l(B
> $B$P$$$$$3$H$K$J$j$^$9!#(B
> 
> # $B$3$l$C$FK\Ev(B? $B:#$^$GL@<(E*$K$=$&=q$$$F$"$k$N$rFI$s$@$3$H$,$J$$$h$&$J(B
> # $B5$$,$7$^$9$,!#(B

$B>ZL@$7$?$/$O$J$$$G$9$,$=$&$_$?$$$G$9$h$M!#(B

$B%j%9%H$r;H$C$?8zN($N$$$$AG?tC5$7!"8e$G9M$($F$_$^$9!#(B
$B%j%9%H$NJY6/$K$J$j$=$&$G$9!#(B

> $B$"$H$I$&$G$b$$$$$3$H$G$9$1$I!"(Bisprime $B$C$F(BC$B$NkB$,=P$F$$$^$9$M!#(BLisp $BJ}(B
> $B8@$J$i(B primep $B$G$7$g$&!#(B

$B$=$&$G$7$?!#(B(^^;)

-- 
                    Koichi Inoue, ARGV
                    E-Mail: inoue@...
                    ICQ UIN: 74900690